Select Code to Download

$status =~ s/(\W+)/ /gs; #Eliminate all non-word characters followed b
+y space.

$soc =~ s/(\W+)/ /; #Eliminate all non-word characters followed by spa
+ce.

$subscriber =~ s/(\D+)/ /; #Eliminate all non-digits followed by space
+.

foreach (@file_row) {
    while ( $line < $#file_row + 1 ) {
...
        $line++;
    }    #while
}    #foreach

foreach $row_data ( @file_row ) {
    # Processing goes here.
}

while ( $row_data = <IN_FL> ) {
    # Processing here
}

open(IN_FL, $input_FL) || die ("unable to open directory");

open IN_FL, $input_FL or die "unable to open $input_FL:$!";