while( <DB> ) {
    chomp;
    RECORD: while (m/\G(.*?(?<!\\)(\\\\)*)\Q$dataseperator\E/gs) {
        ...
    }
}