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