Select Code to Download

    After a match against some variable $var:

...
$1 is the same as substr($var, $-[1], $+[1] - $-[1])
$2 is the same as substr($var, $-[2], $+[2] - $-[2])
$3 is the same as substr $var, $-[3], $+[3] - $-[3])

use strict;
for    my $regex (qr/(.)oo(.)ar(.)az/, qr/fo(.)barba(.)/) {
...
    /e;
    print "$str\n";
}

f,b,b
o,z