perl 851032-orig.pl $& at line 9: line 4. $& at line 14:

##

#!/usr/bin/perl
use strict;
use warnings;
# 851032-orig (but using data)

# open FH,"data" or die "can't open the file";

while() {
	if(~/^##

#!/usr/bin/perl
use strict;
use warnings;
# 851032

#open FH,"data" or die "can't open the file";

while() {
	my $line=$_;
	if( $line =~ /^