local $\ = "\n";
while(<>) { print substr $_, 0, 12 }