$ perl -e '($s)="aaabbaabbb"=~/(a.*)b/;print "$s\n";' aaabbaabb $ perl -e '($s)="aaabbaabbb"=~/(a.*?)b/;print "$s\n";' aaa #### my @items = /$rxExtract/g; #### my $string = ; #### my @items = $string =~ /$rxExtract/g; #### s/\n(?=.)/\t/g for @items;