if( my $seq = /Subject/ .. ( /^content-type/i ) ) { $content .= $_ if $seq !~ /E0$/; last if /E0$/; ## no point in parsing further }