while( my $line = <$in> ) {
        $line = substr($line,1);
        print $out $line;
}