my $text = "Peter Pan geht sehr gerne in den Park";
foreach ($text =~ /(P\w+)/) {
print "$1\n";
}