Help for this page
D,.2,3,1 D,.2,3,1 ... F,.2,4,0 F,.2,3,1 R,.6,3,1
perl -le '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat +!\n"; } else { print "Thats a dog\n"; }'