#! perl
use strict;
use warnings;

while (<DATA>)
{
    s/__(\S+?)__/uc($1)/eg;
    print;
}

__DATA__
#ifdef __some_Long_name__
do stuff
#endif