1 while s/ \.  ( .* \. ) /_$1/x;