Shell Programming and Scripting

while (<FILE>) {
$line = $_;
@vals = split(/$field_separator/, $line);

if ($vals[20] == " " && $vals[21] == 0 && $vals[22] == 0 )
{
$line = $line_number.'@,@'.$line;
$line =~ s/@,@/$field_separator/g;
print OUT2 $line;
$line_number++;
}
elsif ( $vals[20] == " " && $vals[21] == " " && $vals[22] == 0 )
{
$line = $line_number.'@,@'.$line;
$line =~ s/@,@/$field_separator/g;
print OUT2 $line;
$line_number++;

}
else
{
$line = $line_number1.'@,@'.$line;
$line =~ s/@,@/$field_separator/g;
print OUT1 $line;
$line_number1++;

}

}