Select Code to Download

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

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

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