my $count = ($line =~ s/[#] .*? \n//xms);
$total += $count;
##</code><code>##

$line =~ s/["'] [^'"\n] ['"]//gxms

##</code><code>##

$count = ($line =~ s/use [^;]+ ;//gxms);
$total += $count;
##</code><code>##

my $count = ($all_text =~ s/<<(\w+) .*? \1//gxms); 
$total += $count;

##</code><code>##

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