Removing A Line In Perl

[MrNewbie]

If I open a file in perl, how can I remove one line from it based on the first word of the line to make something like this:

One Two Three
Four Five Six
Seven Eight Nine

Into this:

One Two Three
Seven Eight Nine

? So theres no blank line under the previous line and next line.
Thanks
MrNewbie

[TheLinuxDuck]

If it's loaded into an array, you can:


for(@database) {
print DATABASEFILEHANDLE if(/^[^Four]/);
}


That should do it. :)

[MrNewbie]

Thanks a lot.
MrNewbie

[jemfinch]

perl -ni -e 'print if $_ !~ m/^Four/'

Jeremy