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