exec('start','LostS.mid') if ($^O =~ /MSWin32/);

##</code><code>##

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