Select Code to Download

use warnings;
use strict;
...
    print $name,'; ',$_,"\n";
    }
}

thisscript old.txt > new.txt