DB<17> $a= "xxx"

  DB<18> p 'xxx' =~ m/$a/
1
  DB<19> p 'xxx' =~ m'$a'

  DB<20>