Select Code to Download

$data =~ /[^\d]+([^ ]+)[^\d]+(\d+)(.*?)$/;

$data =~ /\D+(\S+)\D+(\d+)(.*)$/;

$data =~ /
          \D+   # One or more non-digits
...
            .*  #     rest of string
          )$    # Anchor above to end of string
        /x;