Select Code to Download

my $delimiter = '.';
my $nth = 3;
my $regex = '^(' .
            ('.*\Q' . $delimiter . '\E') x $nth .
            ')';