open INFILE,  "<" . $filename 
     or die "Couldn't open file " . $filename . " for reading : $!";
open OUTFILE, ">" . $filename 
     or die "Couldn't open file " . $filename . " for writing : $!";
while (<INFILE>){
	print OUTFILE $_;
	last if /$heading_to_print/;
}
while (<INFILE>){
	print OUTFILE $_ unless /$heading_to_print/;
}
close INFILE;
close OUTFILE;