in reply to Re: Find First character of each word in a string
in thread Find First character of each word in a string

This works but I dont like it. 
$str = 'my cardio workout';

@s = split (/\s/,$str);

foreach (@s){
  my $new_str = substr ($_,0,1);
  $new_str = ucfirst ($new_str);
  $ab .= $new_str;
}

print "AB is $ab\n";

[download]

Replies are listed 'Best First'.
Re^3: Find First character of each word in a string
by AnomalousMonk (Archbishop) on Nov 24, 2010 at 00:45 UTC

    If that's the way things are, then maybe: 

    >perl -wMstrict -le
"my $str = 'eternal corruption defilement';
 ;;
 $str =~ s{ \b ([[:alpha:]]) [[:lower:]]* \s* }{\U$1}xmsg;
 ;;
 print qq{'$str'};
"
'ECD'

    [download]

    Update: Removed an unnecessary level of capture grouping in regex above. Also:  [[:lower:]]* might be better as  [[:alpha:]]* instead.

    Update: Or even: 

    >perl -wMstrict -le
"my $str = 'eternal corruption defilement';
 ;;
 $str =~ s{ (\b [[:alpha:]]+ \s*) }{ uc substr $1, 0, 1 }xmsge;
 ;;
 print qq{'$str'};
"
'ECD'

    [download]
[reply]
[d/l]
[select]
      Thanks
[reply]

In Section Seekers of Perl Wisdom