#!/usr/bin/perl
my $target = "IF(You love DXLib) AND(CPlusPlus) THEN(Create Funny Games!)" ;
$target =~ s/[A-Z]+\(.{1,20}\)/<matched>/g;
IyEvdXNyL2Jpbi9wZXJsCgpteSAkdGFyZ2V0ID0gIklGKFlvdSBsb3ZlIERYTGliKSBBTkQoQ1BsdXNQbHVzKSBUSEVOKENyZWF0ZSBGdW5ueSBHYW1lcyEpIiA7CgokdGFyZ2V0ID1+IHMvW0EtWl0rXCguezEsMjB9XCkvPG1hdGNoZWQ+L2c7CgpwcmludCAkdGFyZ2V0Ow==