use strict;
use warnings;

my ($line, $line2);
while ($line = <>) {
       chomp($line);
       $line2 = substr($line,9,80);
       print "$line2\n";
}