Help for this page
if ( $line =~ /$DELIMITER/ ) { ...
if ( $line =~ /\Q$DELIMITER/ ) { ...
if ( index($line, $DELIMITER) >= 0 ) { ...