if ( $row =~ $re )

##</code><code>##

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