import re
for line in open("inputfile"):
     print ','.join(re.findall(r'<.*value=\"(.*)\">(.*)<.*?>',line)[0])

#/home: python script.py > output.csv

awk '$0=$0{printf "%s,%s\n",$2,$3}' \
FS="<option value=\"|\">|</option>" infile

#! /opt/third-party/bin/perl

open (FILE, "< $ARGV[0] ") || die "Unable to open $ARGV[0] <$!> \n";

my(@split_fields, @second_split, @further);

while( chomp($_ = <FILE> ) ) {
  @split_fields = split(/"/, $_);
  @second_split = split(/>/, $_);
  @further = split(/</, $second_split[1]);
  print "$split_fields[1],$further[0]\n";
}

close(FILE);

exit 0

sed 's/\(.*\)\"\(.*\)\"\(.*\)>\(.*\)<\(.*\)/\2,\4/'  filename