Limbic~Region has almost got it then:

    if ( $message =~ /([a-zA-Z0-9]+)[^a-zA-Z0-9]*([a-zA-Z0-9]*)/ ) {
        print "$1 $2\n";
    }
[download]