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