open(FILE,"date.txt") || die $!;
		@main = <FILE>;
		close(FILE);


open(FILE,">date.txt") || die $!;
       foreach $line_in (@main) {
	      
             if ($line_in =~ /The marker line/) {

print FILE "The marker line\n";
      print FILE "hello\n";


	         }
	       
       else {
            print FILE "$line_in";
             
                 
      }