Select Code to Download

if(
  $string =~ m/(?:[^!]*!){49999}[^!]*!/;
) {
  print $+[0] + 1, "\n" # Updated.
}