my ( $name, $text ) = ( split /[:!]/, $input, 4 )[1,-1];