my %hash = (':-)' => 'lachen.gif', ';-)' => 'zwinker.gif');
my $string = 'Dies;-) ist ein Test :-)';

$string =~ s!$_!<img src="./$hash{$_}">!g;

#! /usr/bin/perl

use strict;
use warnings;

my $string = 'Dies;-) ist ein Test :-)';

my @array = split(/([:;]-\))/,$string);

print $_,"\n" for(@array);

#! /usr/bin/env perl

use strict;
use warnings;
use lib qw(/homes/frasbio11/reneeb/cpan);
use Regexp::Assemble;

my @smilies = (':-)', ';-', ':-(');
my $ra = Regexp::Assemble->new();

$ra->add('^'.$_.'$') for(@smilies);

print $ra->re,"\n";