my $re = qr/$pat/;

s/$re//