if ( $line =~ /$DELIMITER/ ) { ...

##</code><code>##

if ( $line =~ /\Q$DELIMITER/ ) { ...

##</code><code>##

if ( index($line, $DELIMITER) >= 0 ) { ...