use overload;
  print overload::StrVal(qr/asdf/);
  # Regexp=SCALAR(...)