Select Code to Download

#scalar usage:
my $x="AAC\nGTT";
...
print $&;
$x=~/^.*$/mg;
print $&;

my $x="AAC\nGTT";

my @allhits= $x=~/^.*$/mg;
print join(" - ", @allhits),"\n";