$str="
this
is
a string
example";

@data= ( $str =~ /(.*?\n)/g );

print map "[$_]",@data ;


##</code><code>##

[
][this
][is
][a string
]