Select Code to Download

my $n = 2;
my $pattern = qr/\.0/;
...
    $str =~ s/($pat.*?){$n}($pat)/$1/;
    return $str;
}