File indexing completed on 2024-05-19 16:10:04

 #!/usr/bin/perl
 while (<>) {
   if ( m/.* = [-\d]+ '(.+)'/ ) {
     my $a = $1;
     eval( "\$a=\"$a\"" );
     print $a;
   } elsif ( m/.* = -1/ ) {
     print "\n";
   }
 }