#!/usr/local/bin/jperl5.003 while(<>) { s/I/!/g; s/h/\"/g; s//\#/g; s//\$/g; s//%/g; s//\&/g; s/f/\'/g; s/i/(/g; s/j/)/g; s//*/g; s/{/\+/g; s/A/,/g; s/|/-/g; s/D/./g; s/^/\//g; s/O/0/g; s/P/1/g; s/Q/2/g; s/R/3/g; s/S/4/g; s/T/5/g; s/U/6/g; s/V/7/g; s/W/8/g; s/X/9/g; s/F/:/g; s/G/;/g; s//\</g; s//=/g; s//\>/g; s/H/?/g; s//@/g; s/`/A/g; s/a/B/g; s/b/C/g; s/c/D/g; s/d/E/g; s/e/F/g; s/f/G/g; s/g/H/g; s/h/I/g; s/i/J/g; s/j/K/g; s/k/L/g; s/l/M/g; s/m/N/g; s/n/O/g; s/o/P/g; s/p/Q/g; s/q/R/g; s/r/S/g; s/s/T/g; s/t/U/g; s/u/V/g; s/v/W/g; s/w/X/g; s/x/Y/g; s/y/Z/g; s/m//g; s//\\/g; s/n//g; s/O/^/g; s/Q/_/g; s/e/`/g; s//a/g; s//b/g; s//c/g; s//d/g; s//e/g; s//f/g; s//g/g; s//h/g; s//i/g; s//j/g; s//k/g; s//l/g; s//m/g; s//n/g; s//o/g; s//p/g; s//q/g; s//r/g; s//s/g; s//t/g; s//u/g; s//v/g; s//w/g; s//x/g; s//y/g; s//z/g; s/o/{/g; s/b/|/g; s/p/}/g; print; }