in reply to Removing multiple lines

perl -ne 'print if $_ ne $last;$last=$_' file

[download]
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

Replies are listed 'Best First'.
Re^2: Removing multiple lines
by BrowserUk (Patriarch) on May 01, 2009 at 06:37 UTC

    You missed the "very similar" bit.

[reply]

In Section Seekers of Perl Wisdom