#!/usr/bin/perl

$firststring = "alpha beta gamme delta";

$string = uc( $firststring ); # $string = ALPHA BETA GAMME DELTA
$string = lc( $firststring ); # $string = alpha beta gamme delta
$string = "\U$firststring\E"; # $string = ALPHA BETA GAMME DELTA
$string = "\u$firststring";   # $string = Alpha beta gamme delta
$string = "\l$string";        # $string = alpha beta gamme delta