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

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

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

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