If you're trying to wrap text, you might want Text::Wrap. Even if you're not, you might want to wrap the text then just keep the first line.