Select Code to Download

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

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

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