$text=<<"EOT";
Line 1
Line 2
Line 3
EOT
 
foreach ( split(/\n/, $text) ) {
   print "* $_\n";
}