my $check = 'cd';
substr $check, 0, 1, q();