perl -nle 'if ( /Start Dump/ ) { $toopen=1; next } if ( /End Dump/ ) { $open=0; next } if ( $toopen ) { $toopen=0; my $f=$_; $f=~y~[@ /]~~d; open OUT, ">$f" and $open=1 } s/^[ 0-9][ 0-9][0-9]: //; print OUT if $open; print unless $open' ../sayarch