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