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