map { push(@pieces,$_) } split(/\./,$file);


##</code><code>##

push( @pieces, $_ ) foreach split( /\./, $file );


##</code><code>##

pop @pieces;
return join '.', @pieces;