my $chr = substr($str,0,1);