Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    my ($sname, $fname) = $fullname =~ /([A-Z]{3,})/g;
    is ($fname, $names{$fullname}, "Forename $fname extracted from $fu
+llname");
}