$line =~ /^(.{0,17})/;
print "$1\n";