Select Code to Download

my $empl_name = shift;
my ($last, $first) = $empl_name=~/^([^,]+), (.+)/ or return undef;

my ($last, $first) = /(.*), (.*)/ or return undef;