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