while ( $row =~ /$re/g )