my @var = $line =~ /([A-Z]+)/g;