my $string_one = "foo bar baz";
my $string_two = "Foo bar baz";

ucfirst $string_one;
lcfirst $string_two;

print 'First letter is lowercase in $string_one' if $string_one =~ /^[
+a-z]/;
print 'First letter is lowercase in $string_two' if $string_two =~ /^[
+a-z]/;
[download]

$a = 'haha';
$a =~ s/^([a-z])/\U$1/; 
print $a;
[download]

-- tune

Damn straight it's not the only way!! We code Perl goddamit!!. There is Always more than one way of doing it. :)

--

Brother Frankus.

$string = "to my beloved wife";
$string = ucfirst $string;
print $string;
[download]

Autark.