my $regex = qr/PATTERN/;
s/$regex/.../;