Select Code to Download

[sam@localhost xml_test]$ time ./parser.pl > parser.out
 
...

[sam@localhost xml_test]$ diff parser.out regex.out

#!/usr/bin/perl -w

...
        return join($sep, map { get_word() } (0 .. ((int(rand($num)))+
+1)));
    }
}

#!/usr/bin/perl -w

...
while($xml =~ m!<message>([\w\s]+)</message>!g) {
    print $1, "\n";
}

#!/usr/bin/perl -w
use strict;
...
        print "\n";
    }
}