Plankton@Chum_Bucket:~/perl/perlmonks> cat test.pl
#!/usr/local/bin/perl -w
use strict;
 
package Test;
 
sub new{
    my( $class, $value ) = @_;
    return bless { content => $value }, $class;
}
 
1;
 
package main;
 
my $thing = Test->new( 'empty' );
print $thing->{'content'} . "\n";
 
$thing->{'content'} = 'the quick brown fox';
print $thing->{'content'} . "\n";
 
$thing->{'content'} =~ s[\b(.)][\U$1]g;
print $thing->{'content'} . "\n";
Plankton@Chum_Bucket:~/perl/perlmonks> ./test.pl
empty
the quick brown fox
The Quick Brown Fox