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