my ( $last, $first ) = split m{\s*,\s*};