$/=1;$_=<>;1 while s/^(.)/!print$1/gme