Select Code to Download

print ${$_},"\n";

{
    no strict 'refs';
    # stuff
}

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