$ perl -E 'my $x = "2}"; "ab" =~ /.{$x/ and say "Matched"'
Matched