use String::Escape;

print String::Escape::elide( "Ipod batteries for Apple Ipod PDAs. Replacement batteries from Laptops for Less.com.url", 20 );

# Ipod batteries...