Здрасти,
и аз не съм нещо в тая работа - но пробвай това по-долу (това е в среда LINUX - ако искаш при Бил Гейтс - трябва в първия ред да напишеш пътя на perl.exe ):

#!/usr/bin/perl
$stuff="./fcp.txt"; # файла който ще четеш
$fnd ="";
open (STUFF, $stuff) or die $!; # отваряш за четене

while (<STUFF>) { # четеш ред по ред
print "Line number $. is : $_"; # печаташ на екрана четеното
if( /(?:print)/i){ # ако поне един път има "print" /(?: ...
# и не гледаш дали има Upper/lower case
$fnd = $_; # записваш намерения ред в $fnd
}
}
#close (STUFF); # можеш и да пропусвеш
open (FHANDL, ">>$stuff"); # отваряш за append
print "'$fnd"; #
print FHANDL "$fnd"; # пишеш в края на файла

....