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