[Bioperl-l] mystery

[Tamas Horvath]

while ($pdb_data =~ /(REMARK 999.*)/g) {
     die "die2";
    }
die"die1" if $pdb_data =~ /(REMARK 999.*)/;

the following code terminates with "die1". Does anyone know why?
the $pdb_data is a string of a pdb entry (1PHK)

it has the following REMARK 999 lines:

REMARK 999
REMARK 999 SEQUENCE
REMARK 999 1PHK       SWS     P00518       1 -    14 NOT IN ATOMS LIST
REMARK 999 1PHK       SWS     P00518     292 -   386 NOT IN ATOMS LIST