print scalar((split('', "I am a string"))) . "\n";

##</code><code>##

my @chars = split '', "I am a string";
my $num = scalar(@chars);
print $num . "\n";