my $first = (split//,$string)[0];