#!/usr/bin/perl
my $target = "IF(You love DXLib) AND(CPlusPlus) THEN(Create Funny Games!)" ;
while($target =~ /[A-Z]+\(.{1,20}\)/g) {
$target=$';
}
IyEvdXNyL2Jpbi9wZXJsCgpteSAkdGFyZ2V0ID0gIklGKFlvdSBsb3ZlIERYTGliKSBBTkQoQ1BsdXNQbHVzKSBUSEVOKENyZWF0ZSBGdW5ueSBHYW1lcyEpIiA7Cgp3aGlsZSgkdGFyZ2V0ID1+IC9bQS1aXStcKC57MSwyMH1cKS9nKSB7CglwcmludCAoJCYuIlxuIik7CgkkdGFyZ2V0PSQnOwp9