Beispiel #1 - gesamte Zeichzenkette umwandeln

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Das ist ein Text.';

print "\U$text"; # Ausgabe: DAS IST EIN TEXT.

Beispiel #2 - Teil einer Zeichenkette umwandeln

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Das ist ein Text.';

print "\U$text\E Und das ist auch ein Text."; # Ausgabe: DAS IST EIN TEXT. Und das ist auch ein Text.