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