Or a shorter version :-) ####################################################################### #!/usr/bin/perl -w
use strict; use Text::Balanced qw(extract_quotelike extract_multiple); use Data::Dumper; my @array = (<DATA>); my @strings; push @strings,extract_multiple( $_,[sub { extract_quotelike($_[0]) },],undef, 1 ) foreach @array; print Dumper @strings; __DATA__ Lorper autpat. "Lor sent vel del" utate el irilit, con exeros nit lum "num zzrilis nos nullaore "dolum dunt nonsenisl et augiat. "Ut wismolorem ea cortin" henis adipit aliquis am, consequi "bla feum iure dipit" eugue core ting ea consectet alis dolummy nos nonse delis "nonsequismodo coreros" nulput volobor "ipsustrud tatem dunt lutpat". Lorper alit praestie molute "dipit aliquat" amet ilit delisi. ######################################################################
pgpJt8W56ydfL.pgp
Description: PGP signature
