my $inputFile = q{xyz.txt};
open my $inputFH, q{<}, $inputFile
   or die qq{open: < $inputFile: $!\n};
my $outputFile = q{abc.txt};
open my $outputFH, q{>}, $outputFile
   or die qq{open: > $outputFile: $!\n};

##</code><code>##

# Reading lines into $_ in a while loop and removing
# line terminator
while( <$inputFH> )
{
    chomp;  # Acts on $_ by default
    ...     # Rest of your line-processing code here
}

##</code><code>##

my $rxExtractNameData = qr
   {(?x)
       (
           \s+
           (\w+)
           \s+
           \([A-Z]\)
           \s+
           \(\d*%\)
           \s+
           \d+\s+\+\s+[+-]?\d+
       )
   };