#!/usr/bin/perl
use Benchmark qw/countit cmpthese/;

# Load the messages array
our @messages;
while (<>){
    chomp;
    push(@messages, $_) if ($_ =~ m/:/);
};
print STDERR "Array loaded with ", scalar @messages, " posts.\n";

sub run($) { countit(10, @_) }

print "Begin benchmark.\n";


cmpthese {
    should_be_faster => run q{
     foreach my $post (@messages){
      if ($post =~ m/:/) {

    $post =~ s!\Q:-[\E!<img src="./emoticons/bat.gif">!gio;
    $post =~ s!\Q:[\E!<img src="./emoticons/bat.gif">!gio;
    $post =~ s!\Q:-D\E!<img src="./emoticons/bigsmile.gif">!gio;
    $post =~ s!\Q:D\E!<img src="./emoticons/bigsmile.gif">!gio;
    $post =~ s!\Q:'(\E!<img src="./emoticons/cry.gif">!gio; 
    $post =~ s!\Q:-)\E!<img src="./emoticons/smile.gif">!gio;
    $post =~ s!\Q:)\E!<img src="./emoticons/smile.gif">!gio;
    $post =~ s!:\(!<img src="./emoticons/sad.gif">!gio; 
    $post =~ s!:-\(!<img src="./emoticons/sad.gif">!gio;
    $post =~ s!\Q:-$\E!<img src="./emoticons/sour.gif">!gio;
    $post =~ s!\Q:$\E!<img src="./emoticons/sour.gif">!gio;
    $post =~ s!\Q:-p\E!<img src="./emoticons/tounge.gif">!gio;
    $post =~ s!\Q:p\E!<img src="./emoticons/tounge.gif">!gio;
#    $post =~ s!\Q:-\\E!<img src="./emoticons/what.gif">!gio;
#    $post =~ s!\Q:\\E!<img src="./emoticons/what.gif">!gio;
}}},
should_be_slower => run q{    
    foreach my $post (@messages){

    if ($post =~ m/:/){

    $post =~ s!\Q:-[\E!<img src="./emoticons/bat.gif">!gio;
    $post =~ s!\Q:[\E!<img src="./emoticons/bat.gif">!gio;
    $post =~ s!\Q:-D\E!<img src="./emoticons/bigsmile.gif">!gio;
    $post =~ s!\Q:D\E!<img src="./emoticons/bigsmile.gif">!gio;
    $post =~ s!\Q:'(\E!<img src="./emoticons/cry.gif">!gio; 
    $post =~ s!\Q:-)\E!<img src="./emoticons/smile.gif">!gio;
    $post =~ s!\Q:)\E!<img src="./emoticons/smile.gif">!gio;
    $post =~ s!:\(!<img src="./emoticons/sad.gif">!gio; 
    $post =~ s!:-\(!<img src="./emoticons/sad.gif">!gio;
    $post =~ s!\Q:-$\E!<img src="./emoticons/sour.gif">!gio;
    $post =~ s!\Q:$\E!<img src="./emoticons/sour.gif">!gio;
    $post =~ s!\Q:-p\E!<img src="./emoticons/tounge.gif">!gio;
    $post =~ s!\Q:p\E!<img src="./emoticons/tounge.gif">!gio;
    $post =~ s!\Q:-\\E!<img src="./emoticons/what.gif">!gio;
    $post =~ s!\Q:\\E!<img src="./emoticons/what.gif">!gio;

    }}}}