$total++ if $all_text =~ s/(__DATA__|__END__) .*//xms;