Re: extract variables from expression

I made another test :

#!/usr/bin/perl -w
use strict;

my $line = " [quote=alexandre]Ceci est un
testttttt[/quote][quote=tester]response[/quote]";
open(DATA,">filename.txt");
print DATA $line;
close DATA;
open(DATA,"<filename.txt");
while ($line = <DATA>) {
if ($line =~ m#\[([^\]]+)](.*?)\[/quote]#) {
my $speaker = (split(/=/, $1))[1];
my $quote = $2;
print "$speaker\n";
}

}
close DATA;

and it's only print the first speaker

.