Re: Find First character of each word in a string

[GrandFather]

A Perlish version might look something like:

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

my $str = "Internal Computing Department";

print join '', map {uc substr $_, 0, 1} split ' ', $str;

Prints:

ICD