sub g {
shift;for(@{+shift}){s/[@_]//g;$b||=chop}$b
#23456789_123456789_123456789_123456789_123
}