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

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

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

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