Ack, you actually use that?
You can do the same job in one line:
$description = lc($description);
...as for your other question:
$description =~ s/^(\w)/\U$1/;
You can do the same job in one line:
$description = lc($description);
...as for your other question:
$description =~ s/^(\w)/\U$1/;