Select Code to Download

use strict;
use warnings;
...
my @array = split /\./, $string;
my $fixed = join('\.',@array);
print $fixed;