$text =~ s/\n.*/ [more\.\.\.]/s;