$id and print qq~ ...