Help for this page
Select Code to Download
Select
or
download this
my ( $last, $first ) = split m{\s*,\s*};