Select Code to Download

my @sorted_list = 
    map { $$_[0] }
...
        my $tmp = join "\x00", (split /\t/)[3,4];
        $tmp =~ s/(^|\x00)\s+/$1/g;$tmp } ]
    } @database_in;

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