When assembling regular expressions, beware: if $delimiter had any regex special characters, you would have to use \Q$delimiter\E in the assembled regex.

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