Perl: 18 bytes - 10 = 8
=======================
The string is from STDIN.

<!-- language: lang-perl -->

    $_=<>;{print;redo}