isn't split enough then ? something like my ($l, $p) = split / at /, $message, 2 ;