#!/usr/bin/perl

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

while($target =~ /[A-Z]+\(.{1,20}\)/g) {
	print ($&."\n");
	$target=$';
}