string:    <perl_quotelike>
    { if ($item[1][0] =~ /^(qx|s|tr|y)$/ or  # no perl commands
          $item[1][1] eq '`' or              # no backticks
          $item[1][2] =~ /\(\?\??\{/)        # no qr'' with code
      { $return = undef }
      else
      { $return = eval "" . join('', @{$item[1]}) }
      (defined $return)
    }