use strict;
use warnings;

my $i = 1;

while (<>) {
	s/>\K.+/$i++/e;
	print;
}