/$re/ and print while <>