if ( $line !~ m/^2/ ) {
.
.
.
else {
print OUTPUT $line . "\n";