trække initialer ud af navn

Hvis $s indeholder navnet:

$s = join '', map { s/^(.).*/$1/; $_ } split /\s+/,$s;
$s = uc($s);

så er $s udskiftet med initialerne skrevet med store bogstaver (uc kan dog vist ikke helt lide æøå og lignende)

ideen er at splitte teksten ved mellemrum og antage at resten så er navnene, herefter skal vi bruge første bogstav af hvert ord. Der er sikkert nemmere metoder....

Det virker jo strålende - takker.