in reply to 2 basic questions
my $check = 'a'; $check++ for 1 .. 5; [download]
my $check = 'cd'; substr $check, 0, 1, q(); [download]
Or, use a substitution:
my $check = 'sp'; $check =~ s/^.//; [download]