my ($site, $digits) = 
    $String =~ m{ 
        ^(.{3}) # the site code
        .+?     # noise, as little as possible though
        (\d+)   # the digits (keepers)
        \.      # the delimiter
    }x;