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