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

##</code><code>##

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