Select Code to Download

$_='axxbcaxbagaxbacba';
foreach my $a (m/a(.*?)b/g) {
    print "$a\n";
}

foreach my $a ($1, $2, $3, $4) {