my $var = '(';
print if /$var/;

Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE / at - line 2.