Or even

foreach ( split(/^/, $text) ) {
   print "* $_";
}
[download]