$line =~ s/\n+/ /g; #puts line on one line

my @questions;
  while ($line =~ s/<ol> <li> (.*?) <\/ol>//s) {
    push @questions, $line;
  }

my @answers;
  while ($line =~ s/<li>\s*(.*?)\s*<\/li>//s) {
    push @answers, $line;    
  }