you'll want to use substr:

my $long_line= 'this line is more than seventeen characters.';
my $short_line= substr( $long_line, 16, length $long_line ) .= '...';
[download]

~Particle *accelerates*