elsif ($last =~ m/(\w+)\s*(\w+)/) {
        $surname = join(' ', $1, $3);
}