lanx@nc10-ubuntu:~$ perl -MO=Concise 
'abc' =~ '\w{3}'
__DATA__
5  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -:1) v:{ ->3
4     </> match(/"\\w{3}"/) vKS/RTIME ->5
3        <$> const[PV "abc"] s ->4
- syntax OK
lanx@nc10-ubuntu:~$ perl -MO=Concise 
'abc' =~ m'\w{3}'
__DATA__
5  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -:1) v:{ ->3
4     </> match(/"\\w{3}"/) vKS/RTIME ->5
3        <$> const[PV "abc"] s ->4
- syntax OK

##</code><code>##

  DB<103> $x= '\w{3}'
 => "\\w{3}"

  DB<104> 'abc' =~ $x
 => 1

  DB<105> sub regex { '\w{3}' }

  DB<106> 'abc' =~ regex()
 => 1