sub wordcaps {
my $line = shift;
$line =~ s/(w)/U$1/g;
return $line;
}
capitalize words
Leave a Reply
You must be logged in to post a comment.
sub wordcaps {
my $line = shift;
$line =~ s/(w)/U$1/g;
return $line;
}
You must be logged in to post a comment.