Amazing! Especially the  ^/ to force backtrack on failure. And of course, the obligatory 1-liner:

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

  p