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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

foreach (@file_row) {
    while ( $line < $#file_row + 1 ) {
        $row_data = $file_row[$line];
        # Processing goes here.
        $line++;
    }    #while
}    #foreach

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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