#!/usr/bin/perl

use strict;
use warnings;


main(@ARGV);

sub main
{
    
    open(FH, "gtype.txt");
	foreach( my $line = <FH> ) {
        s/^g//; #toolic's idea.
}

}

    close FH;

#and kennethk's idea

#!/usr/bin/perl

use strict;
use warnings;

main(@ARGV);

sub main
{
    open(FH, "gtype.txt");
	while( my $line = <FH> ){
        substr($_,1); # Start with the second letter
}
}