#!C:\perl\bin\perl -w

$quit = "n";

until($quit eq "y")
{
    print "\n\nenter text...";
    chomp($input = lc(<STDIN>));

    $input=~tr/abcefgijlopqrstyz/46<3fg|j10pqr57yz/;
    $input=~s/d/|)/;
    $input=~s/h/|-|/;
    $input=~s/k/|</;
    $input=~s/m/|\\\/|/;
    $input=~s/n/|\\|/;
    $input=~s/u/\\\//;
    $input=~s/v/\\\//;
    $input=~s/w/\\\/\\\//;
    $input=~s/x/></;

    print $input;
    print "\n\nwanna quit? (y or n)";
    chomp($quit = lc(<STDIN>));
}

print "\n\nthanks for nothing, don't come back...BITCH!!!";