Исправление Difrex, (текущая версия) :
$ echo '%
text
texxxxt
texxxxxxxt
%' | perl -e '$t; while(<>) { if( $_ =~ /^\%$/) { next; } $t .= $_; } print "$t"; '
text
texxxxt
texxxxxxxt
Да, не регулярка.
Исходная версия Difrex, :
$ echo '%
text
texxxxt
texxxxxxxt
%' | perl -e '$c=0; $t; while(<>) { if( $_ =~ /^\%$/) { next; } $t .= $_; } print "$t"; '
text
texxxxt
texxxxxxxt
Да, не регулярка.