#!/usr/bin/perl

use strict;
use warnings;


main(@ARGV);

sub main
{
    
    open(FH, "gtype.txt");
	while( my $line = <FH> ) {
        my $line = substr($line,1);
        printf $line;
}

}

    close FH;