Select Code to Download

use strict;
use warnings;
...
    print "Name part $_: $parts[$_ - 1]\n" for 1 .. @parts;
    print "\n";
}

Name: JoeZZZJones
Name part 1: Joe
...

Name: Bobbie
Name part 1: Bobbie