$str = "AdfsADSFsdaf232\nASFD\nFJADS\n";
@arr = split("\n", $str);

for $arr(@arr) {
	 
	 if (($arr =~ /^\U$arr$/g)) {
		print "\n$arr";
	}
}