$data =~ /reason/g or die for 1..3;
my ($rest) = $data =~ /.*/sg;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $rest = ( split /reason/, $data, 4 )[-1];