#!/usr/bin/perl
#Neil's simple encryption program
#
print "Enter a string: ";
chomp($s = <>);
$s =~ tr/A-z /a1m2b3n4c5o6d7p8e9q0frgshtQ/s;
print "Your encrypted string is: $s\n";