G#,1,3,0
E,1,3,0
R,.25,4,1
G#,.25,4,1
B,.25,4,1
G#,.25,4,1
F#,1,3,0
D,1,3,0
B,1,3,0
A,.25,4,1
F#,.25,4,1
A,.50,4,1
A,1,3,0
F#,1,3,0
D,1,3,0
D,.25,5,1
A,.25,4,1
D,.50,5,1
E,1,3,0
C#,1,3,0
A,1,3,0
C#,.25,5,1
A,.25,4,1
C#,.50,5,1

##</code><code>##

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