my $re = qr/@{[<<'HERE']}/x; f . . HERE