Select Code to Download

use strict;
use warnings;
...
        print "Match $expr: '$matches[$expr]' at position ($-[$expr],$
++[$expr])\n";
    }
}