Select Code to Download

use strict;
use warnings;
...
.....
Last Name
.....

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

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