Select Code to Download

#!/usr/bin/perl -w
# "99 Bottles of Beer On The Wall"
...
    }
}

perl -le '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat
+!\n"; } else { print "Thats a dog\n"; }'