foreach my $line (@rows) {
        $line =~ s/\t/\x09/ig;
        $line =~ s/\n/\x0A/ig;
        $line =~ s/\r/\x0D/ig;
        $line =~ s/"/'/ig;
        print FILE "\"$line\",";
        $cell++;
    }

##</code><code>##

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