(jeffa) 2Re: Matching over multiple lines in a scalar

[jeffa]

my $info;

{
local $/ = undef;
$info = <DATA>;
}

can be golfed reduced down to:

my $info = do {local $/;<DATA>};

UPDATE:
Well shucks ... chromatic has already said that in this thread (and thanks for the doobie doobie do, Aristotle).

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)