I have one in my utils library called chip which seems appropriate.

sub chip{ substr $_[ 0 ], 0, 1, '' }

my $s = 'the quick brown fox jumps over the lazy dog';

print chip( $s ), ' : ', $s while $s;

t  :  he quick brown fox jumps over the lazy dog
h  :  e quick brown fox jumps over the lazy dog
e  :   quick brown fox jumps over the lazy dog
   :  quick brown fox jumps over the lazy dog
q  :  uick brown fox jumps over the lazy dog
u  :  ick brown fox jumps over the lazy dog
i  :  ck brown fox jumps over the lazy dog
c  :  k brown fox jumps over the lazy dog
k  :   brown fox jumps over the lazy dog
   :  brown fox jumps over the lazy dog
b  :  rown fox jumps over the lazy dog
r  :  own fox jumps over the lazy dog
o  :  wn fox jumps over the lazy dog
w  :  n fox jumps over the lazy dog
n  :   fox jumps over the lazy dog
   :  fox jumps over the lazy dog
f  :  ox jumps over the lazy dog
o  :  x jumps over the lazy dog
x  :   jumps over the lazy dog
   :  jumps over the lazy dog
j  :  umps over the lazy dog
u  :  mps over the lazy dog
m  :  ps over the lazy dog
p  :  s over the lazy dog
s  :   over the lazy dog
   :  over the lazy dog
o  :  ver the lazy dog
v  :  er the lazy dog
e  :  r the lazy dog
r  :   the lazy dog
   :  the lazy dog
t  :  he lazy dog
h  :  e lazy dog
e  :   lazy dog
   :  lazy dog
l  :  azy dog
a  :  zy dog
z  :  y dog
y  :   dog
   :  dog
d  :  og
o  :  g
g  :
[download]