eval "\$f=qq/$_/";
  print $f;