Help for this page

Select Code to Download

Select or download this

while (@data2) {
    $_ = shift @data2;
...
        s[ \s? / \* .+? \* / \s? ][]smgx; 
    }
}