# legible:
join( "_", split( /\./, $_, y/.// ) );