##
perl -n -e "print qq/$.:\t$_\n/;" textfile.txt
####
while ( <> ) {
.......... # Your code goes here.
print $_;
}
####
perl -pe "s/\bperl\b/Perl/g;" textfile.txt
####
perl -pe "s/\bperl\b/Perl/g;" textfile.txt >temptext.txt
####
perl -pi.bak -e "s/\bperl\b/Perl/g" infile.txt