if ( $line =~ ?<FILENAME>.*\.htm? ) {

##</code><code>##

if ( $line =~ m?<FILENAME>.*\.htm? ) {