main::(-e:1):   0
  DB<5> $_='\$bba\$'

  DB<6> tr/\$/?/

  DB<7> print $_
\?bba\?