Select Code to Download

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

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