my $fCnt = $fileText =~ /First\sName/g;
die qq{"First Name" occurs more than once\n}
   if $fCnt > 1;

my $lCnt = $fileText =~ /Last\sName/g;
die qq{"Last Name" occurs more than once\n}
   if $lCnt > 1;