for ($data) {
    /^\s*FORM .../ and do { $whatever = $1; last };
    /^\s*CENTRAL .../ and do { $whatever = $1; last };
    /^\s*CONFORMED .../ and do { $whatever = $1; last };
}