Select Code to Download

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

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