# Eine Regex aus allen Smiley-Strings bauen.
my $smiley_re = join '|', map { "\Q$_\E" } keys %emotes;

# $string an Smileys/Smilies splitten, die runden Klammern sorgen dafuer,
# dass die Smileys/Smilies selber auch im @array landen.
my @array = split /($smiley_re)/, $string;