Help for this page

Select Code to Download

Select or download this

use v5.10;
use strict;
...
while ( <> ) {
   say $1 while /$re/g;
}