Select Code to Download

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

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

my $rxExtractNameData = qr
   {(?x)
...
           \d+\s+\+\s+[+-]?\d+
       )
   };