Modifying files with PERL

[A4r0N]

I need to add "new lines" of text with special characters, to specific
lines in the file. There are 3 modifications needed. Been testing 2
here without success.

#!/usr/bin/perl

use FileHandle;
$file=FileHandle->new;
$FILENAME="/opt/etc/usr/file.txt";
$file->open ("<$FILENAME") or die ("Error: $!\n");
while (<$file>) {
        $count++;
        if ($count=39) {
print qq[RM="rm2"];}
if ($count=47) {
print qq[$RM]
}
exit;


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/