while( defined (my $line = <FH>) ) 
{  
chomp $line;                
my @new = grep /[BRIN|SAGEF403]+?/g/,@array; 
.
.
.
usw
}