Help for this page

Select Code to Download

Select or download this

sub parse_name {
    my ($namestr) = @_;
...
    $middle ||= "";
    return [ $first, $middle, $last ];
}

Select or download this

                                                                      
+    
use strict;
use warnings;
...
First(      John)   Middle(    A)   Last(     Smith)
First(      John)   Middle(    A)   Last(     Smith)
First(      John)   Middle(    A)   Last(     Smith)