my $rxDELIMITER = qr{\Q$DELIMITER\E};
...
if ( $line =~ $rxDELIMITER ) { ...