##
C:\>perl -e "$, .= qq[\x00hjap]; print $,;"
mult
C:\>perl -e "$. .= qq[\x00hjap]; print $. ;"
hjap
C:\>perl -e "$; .= qq[\x00hjap]; print $; ;"
hjap
####
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/