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