>perl t_sq_newlines_1.pl
this
string
has
five
newlines