Select Code to Download

 ( $last, $first ) = ( $name =~ /^(.+),(.+)*/ );

 ( $last, $first ) = ( $name =~ /^(\w+),\s*(\w+)*/ );

($name, $firstname) = ($value=~/(.+),\s*(.+)*/);