$line =~ s/BLAH=(\w+)/BLAH=\U$1/;