in reply to Re^3: grep -A10 oneliner?
in thread grep -A10 oneliner?

And one charater less 
perl -ne 'print if$c=/pattern/?11:$c-!!$c'

[download]
-- gam3
A picture is worth a thousand words, but takes 200K.

In Section Seekers of Perl Wisdom