#!/usr/bin/perl

$length=60;
$sublength=$length - 5;
while(<>){
	if (length($_)>$length){
		chomp;
		$new_string=substr($_, 0, $sublength);
		$new_string="$new_string [..]\n";
		print $new_string;
	}
	else {
		print $_;
	}
}