#!/usr/bin/perl
use strict;
use warnings;
# 927275
use 5.012;

my @title = ("Part II: Nietzsche's Project, An Overall Review", "Learning Perl, 5th Ed.", "Mastering Regular Expressions");
for my $title(@title) {
	my $acronym = join '', ($title =~ /(?:^|\s+)(\w)/g);
	say $acronym;
}

=head OUTPUT

PINPAOR
LP5E
MRE

=cut