Help for this page
Select Code to Download
Select
or
download this
my ($l, $p) = split / at /, $message, 2 ;