>perl -wMstrict -le
"my $s  = 'hi(';
 my $rx = qr{$s};
"
Unmatched ( in regex; marked by <-- HERE in m/hi( <-- HERE / at ...