Select Code to Download

        unit 53 {
            description 1234-rwan-1;
...
        unit 54 {
            description 45ff-rwan-1;
            vci x.yz;

    #                         $1        $2
    while( $file =~ m/^\s+description\s(\w\w\w\w)(-\w+-\w+);/gm ) { 
...
#        $file =~ s/$old_name/$new_full_name/g;
        reset;
        }

Replacing 572l-rwan-1 with 4S1O-rwan-1...
Replacing 25hu-rwan-1 with 9L8O-rwan-1...
Replacing 51h2-rwan-1 with 2PDZ-rwan-1...

Replacing 7301-rlab-b3f2 with 8SF6-rlab-b3f2...
Replacing 8SF6-rlab-b3f2 with CAB7-rlab-b3f2...
Replacing CAB7-rlab-b3f2 with 3X7L-rlab-b3f2...