my $title = "Part II: Nietzsche's Project, An Overall Review";
my $acronym = join '', ($title =~ /(?:^|\s+)(\w)/g);
say $acronym;  # -> PINPAOR