#! /usr/bin/perl

$width = 80;

if (@ARGV > 0) {
	if ($ARGV[0] =~ m:^[/-]:) {
		$ARGV[0] =~ s/.//;
		$width = $ARGV[0];
		shift @ARGV;
	}
}
while ($line = <>) {
	chomp $line;
	my $len = length($line);
	$line = substr($line, 0, $width);
	print $line, "\n";
}