perl -e'/
/
/
/
goto TPC'

##</code><code>##

---
-DA