my @result = split /(: |.<|>,)/;
my($qid,$email,$status) = @result[2,6,10];

  # or 

my($qid,$email,$status) = (split /(: |.<|>,)/)[2,6,10];