#!/bin/perl -ni.bak
  print $. < 3 ? () : $. > 3 ? $_ : "new third\n";

##</code><code>##

  #!/bin/perl -ni.bak
    print
  } BEGIN {
    scalar <>; scalar <>; scalar <>;
    print "This text replaces the third line.\n";
  } {