#!/usr/bin/perl

my $target = "IF(You love DXLib) AND(CPlusPlus) THEN(Create Funny Games!)" ;

$target =~ s/[A-Z]+\(.{1,20}\)/<matched>/g;

print $target;