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.