@array = $line =~/(BRIN|SAGEF403)+/g/;