To delete a line from a file, simply don't output it:
#!/usr/bin/perl my $line_num = 1; open I, " open O, ">myout.txt"; while(my $line = ) { unless ($line_num == 3) { print O $line; } } continue { $line_num++; } close(I); close(O);
Regards, Shlomi Fish