Select Code to Download

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