$ perl -Mstrict -wE 'my $str = "foobar"; say 1 if $str =~ /{,3}/; say $]' 5.028002 $