#!/usr/bin/perl
use warnings;
use strict;

if($#ARGV<0){
    die "Usage: $0 <*.txt>\n";
}

open(IN,$ARGV[0]) ;

$/ = "\n\n";

while ( <IN> ) {
    if( my( $number ) = m/(\d+)/ ) {
        s/\b\p{Alpha}+\b/$number/g;
    } else {
        warn "Malformed record in input line $.\n$_\nContinuing.\n";
    }
    print;
}


##</code><code>##

0       ASDF
        ASEE
        ASEE

13      DERG
        DREG

28      QWER
        QWER

42      WERT
        WERT
        WERT

55      QWEASD
        QWEASD
        QWEASD
        QWEASD


##</code><code>##

0       0
        0
        0

13      0
        0

28      0
        0

42      0
        0
        0

55      0
        0
        0
        0

##</code><code>##

0       0
        0
        0

13      13
        13

28      28
        28

42      42
        42
        42

55      55
        55
        55
        55