LINE: while (my $line = <$input_fh>) {
            chomp $line;
            #print '.';
            if ($line =~ m{(.+)\$Id:.+v.*(\d+\.\d+\.\d+)-(\d+).*\$}xms) {
                my $string_to_print = "Found version line: '$line'.\n";
                $string_to_print =~ s{[^[:ascii:]]}{}g;
                print $string_to_print;
                my $preamble = $1;
                my $current_version = $2;
                my $new_build_number = $3;
                $new_build_number++;
                my $date = serial_stamp({without_seconds => 1});
                my ($sec,$mins,$hours,@rest) = localtime(time);
                my $time = sprintf "%02d:%02d", $hours, $mins;
                
                my $new_line = "$preamble\$Id: $file, v $current_version-${new_build_number} $date $time dbotham Exp \$;";
                
                print "Orig Version: '$line'.\n";
                STDOUT->autoflush(1);
                print "New  Version: '$new_line'.\n";
                STDOUT->autoflush(1);
                
                print $output_fh "$new_line\r\n"; 
                next LINE;
            }
            print $output_fh "$line\n";
        }