Select Code to Download

use strict;
use warnings;
...
        print $line;
    }
}

.abc_1(pqr)
.abc_2(pqr)
.abc_1(abc_1_p)
.abc_2(abc_2_p)