#!/usr/bin/perl
local $chr13=chr(13);
open(I,"qtest.txt");
while($l=<I>) {
        $m.=$l;
        my @as=split(/\"/,$m);
        if(@as%2) {
                $m=~s/[\n$chr13]+//g;
                print "$m\\n\n";
                $m="";
        }
}
close(I);