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

##</code><code>##

{
	no strict 'refs';
	# stuff
}

##</code><code>##

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