> perl -le'$_=pop;/^(.+?)(?{print$1})$/;/^(.+).(?{print$1})^/' hello
h
he
hel
hell
hello
hell
hel
he
h
>