#!/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/) {           
                 #($junk,$recno) = split;
                 $recno = (split (/ /))[2];
                 $recno =~ s/'//g;      
                 }
         elsif (/^##v/) {
                 #($junk,$qno,$junk2,$vtext) = split (/ /,$_,4);
                 ($qno, $vtext) = (split (/ /,$_,4))[2,4];
                 $qno =~ s/'//g;  
                 $vtext =~ s/'//g;
                 }
         else {                                  
                print OUT "$recno^$qno^$vtext";
                }     
        }


##</code><code>##

Use of uninitialized value in substitution (s///) at verb.pl line 14, <IN> line 2068.       
Use of uninitialized value in substitution (s///) at verb.pl line 20, <IN> line 2069.       
Use of uninitialized value in concatenation (.) or string at verb.pl line 23, <IN> line 2070
Use of uninitialized value in concatenation (.) or string at verb.pl line 23, <IN> line 2070