The problem I take it you're running into is that

print ${$_},"\n";
[download]

Produces a warning under use strict (specifically, under  use strict 'refs'). You CAN turn off strict refs in a block with

{
    no strict 'refs';
    # stuff
}
[download]

But you're probably better off loading your captured backreferences into an array, and then looping through the array , e.g.:

my @bits = /(f.o)(b.r)(b.z)/;
foreach (@bits) {
    print "$_\n";
}
[download]

HTH.

Philosophy can be made out of anything. Or less -- Jerry A. Fodor