#!/usr/bin/perl -w

print "Schritt 1:";

$string = "Dies ist ein Teststring";

$string =~ /(?:[A-Z][a-z]+ )+([a-z]+) (.*)/;

print "Prädikat: \'$1\'\n";
print "Substring: \'$2\'\n";

print "\nSchritt 2:\n";

@count = $2 =~ /[A-Z][a-z]+/g;
print "Das Prädikat ist ".scalar(@count)."-wertig\n";