Help for this page

Select Code to Download

Select or download this

use strict;

...
    (?{print 'def 1' if defined ($1); print 'def 2' if defined ($2); p
+rint "\n"})
    /$1\U$2/xg;
print "$chr\n";

Select or download this

matched lh alt: this def 1
matched rh alt: and def 2
matched lh alt: that def 1
this AND that