my $string_upper = "BAR";
my $string_lower = "bar";

print "Testing metacharacter operations.\n";
print "\\L: [$string_upper] => [\L$string_upper]\n";
print "\\U: [$string_lower] => [\U$string_lower]\n";
print "\\l: [$string_upper] => [\l$string_upper]\n";
print "\\u: [$string_lower] => [\u$string_lower]\n";

print "\nTesting function operations.\n";
print "     lc($string_upper) => (" ,      lc $string_upper, ")\n";
print "     uc($string_lower) => (" ,      uc $string_lower, ")\n";
print "lcfirst($string_upper) => (" , lcfirst $string_upper, ")\n";
print "ucfirst($string_lower) => (" , ucfirst $string_lower, ")\n";