like $s->gets(13), qr/^hello, world!/, "puts() and gets() ok";