Po-gorniq primer e rabotesht pri uslovie, che '.' simvola e posleden.
Tozi raboti v/u vsichki '.', s izkluchenie na poslednata:

#:~
map{ $.=$_; s/\.(?=.[^\.]*\.{1}.[^\.]*)/_/g; rename $.,$_ }@files;
#~:


$.++;$.+=$l,$l=$.-$l,print"$. "for 1..9