#!/usr/bin/perl -w
use strict;

my $images_url = '/images';
my @emotes = <DATA>;
foreach my $entry (@emotes) {
    chomp $entry;
    my @pairs = split(/#####/, $entry);
    $entry =~ s/\Q$pairs[0]\E/<img src=\"$images_url\/emote_$pairs[1].gif\">/g;
}
print "@emotes",$/;

__DATA__
oX#####skullandbones
<;#####pie
(o)#####goatse
(~)#####ninja