Perl minimal matching

";

while ($string =~ /<TR>(.*?)<\/TR>/gi) {
        #$&:

, patten in // all.
        #$1: , patten just in /()/, has order for example $1, $2......
        $match_1 = $1;
        while ($match_1 =~ /<TD>(.*?)<\/TD>/gi) {
                print $1 . " ";
        }
        print "\n";
}

#data1 data2 data3
#data4

 

#!/usr/bin/perl -w # practise how to use g flag and ? min match patten. $string="
data1	data2	data3
data4
data4
data4