$content =~ /foo(.*?)bar/;
$new_coverage = $1;

##</code><code>##

while (my ($new_coverage) = ($content =~ /$company(.*?)<\/tr>/ig ) ) {
    print "$new_coverage\n";
}

##</code><code>##

if (my @new_coverage = ($content =~ /$company(.*?)<\/tr>/isg) ) {
     print "$_\n" foreach @new_coverage;
}

##</code><code>##

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); $rose = "smells sweet to degree $n"; *other_name = *rose; print "$other_name\n"'