1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl while (<>) { if ( m/.* = [-\d]+ '(.+)'/ ) { my $a = $1; eval( "\$a=\"$a\"" ); print $a; } elsif ( m/.* = -1/ ) { print "\n"; } }