while ( <DATA> ) {
 print if ( m/(?<!STOR)OMA$/ ); 
}

__DATA__
OMA
COMA
STORAMA
HISTOROMA
PUMA
MELANOMA
STOROMA