# hello\x2c\x20world\x21\x0f
# hello\x2c\x20world\x21

##</code><code>##

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