Look at the first of the psycho complaints, and then look backwards for an unmatched double quote mark ("). The first complaint, about the unquoted bareword, can only happen if perl thinks that
descr is outside a string; therefore, it must think that there's some long string that ends with
my $query3 = ".
--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/