$input = ':Monk!Monk@127.0.0.1 PRIVMSG #test :Beispiel TEXT';
if($input =~ /^@\w+:/)  {
push(@string,"$&\n");
}

for $string (@string) {
$string =~ tr/:!/<>/d;
print @string;
}