Code:
#! /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