my ($rest) = $data =~ /^(?:.*?reason){3}(.*)/s;