my $blah = <*/blah>;
print $blah;
# Or if more than one
@blahs = <*/blah>;
print "$_\n" for @blahs;