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