It does however smell strongly of "I'm over my head with this perl stuff and my script doesn't work - fix it for me".

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
[download]