$query5=<STDIN>;
chomp $query5;
   $query5b='qq!'.$query5.'!';# only two paranoic lines..
   print $query5b;            #
$db->("$query5b")||warn $^E;