my $check = 'sp'; $check =~ s/^.//;