Select Code to Download

#!/usr/bin/perl
use re qw(eval);
...

print "Value of p_rootcode in Pattern 1 is : $p_rootcode\n";

#!/usr/bin/perl
use re qw(eval);
...

print "Value of p_rootcode in Pattern 2 is : $p_rootcode\n";