while (my $line = <I1>) {
    chomp $line;
    if ($line =~ /##INFO=<ID=/) { 
        $line =~ s/,$//;
        # ...
}