my $string = 'Hello, World';
chop $string;
print $string;

##</code><code>##

Hello, Worl

##</code><code>##

my $string = 'Hello, World';
remove_caps $string;
print $string;

##</code><code>##

ello, orld