my $semiColon=2;
my ($substring) = $string =~ /(?:;.*?){$semiColon}(.*?);/;