{
 local $/ = undef;
 $data = <FH>;
}

##</code><code>##

. . . . . . .
/^test$/ && do { }
 . . . . . . .