my ($l, $p) = split / at /, $message, 2 ;