#!/usr/bin/perl

open my $less,"|-","less";
select $less;

$/ = "\"\n\"";

while (<>) {
    my @d = split(/","/);
    print $d[3],"\n";
    print $d[5],"\n\n";
}

