package Smiley;

    my %smilies = ( 
        # ':)' => 'smile.gif', 
        # ';)' => 'wink.gif', 
        ':rolleyes:' => 'biggrin.gif' 
    );

    sub ascii_to_img {
        my $text = shift;
        for (keys %smilies) { 
            $text =~ s/$_/<img src=\"smile\/$smilies{$_}\" \/>/g;
        };
        return $text;
    }

1;