my $id_to_match = '1QJ8:A|PDBID|CHAIN';
while (<>) {
    if (/\Q$id_to_match/) {
        # ...
    }
}