@array = $line =~/[BRIN|SAGEF403]+?/g/;