if you are interested you can try this also

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

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