my $input = ':Monk!Monk@127.0.0.1 PRIVMSG #test :Beispiel TEXT';
my ($name, $text) = ('', '');
if( $input=~/^:(\w+)!.+?:(.+)$/i )
{ ($name, $text) = ($1, $2); }
print "Name: $name\nText: $text\n";