print FILE $line_in; if ($line_in =~ /The marker line/) { print FILE "hello\n"; }