Select Code to Download

.abc(pqr)

.abc(abc_p)

.abc(pqr)

.abc_1(abc_p_1)

.abc_2(abc_p_2)

my $a    =  qr{ [ .(] }xms;
my $b    =  qr{  abc | abc_p  }xms;
...