Hi Monks!

I need your advice once again. I have a .txt file that has over 200,000 rows in it. It is therefore too big to modify by hand. I am trying to write a script that I can apply to it that will do the following:

Take the original format (short example shown here):

0       ASDF
        ASEE
        ASEE

13      DERG
        DREG

28      QWER
        QWER

42      WERT
        WERT
        WERT

55      QWEASD
        QWEASD
        QWEASD
        QWEASD

[download]

And change the format of this file into this:

0       0
        0
        0

13      13
        13

28      28
        28

42      42
        42
        42

55      55
        55
        55
        55

[download]

Can anyone give me a suggestion of how to do this in perl? Your help is greatly appreciated. Thanks in advance.