#!/usr/bin/perl 
use strict;
use warnings; 
open (IN, "infile") or die "Can't open input file: $!\n";
open (OUT, ">outfile") or die "Can't create outfile for write: $!\n ";
while (<IN>) {                         
         if (/^##recstart/) {           
                 my ($junk,$recno) = split;
                 $recno =~ s/'//g;      
                 }
         elsif (/^##v/) {
                 my ($junk,$qno,$junk2,$vtext) = split (/ /,$_,4);
                 $qno =~ s/'//g;  
                 $vtext =~ s/'//g;
                 }
         else {                                  
                print OUT "$recno^$qno^$vtext";
                }     
        }