Help for this page

Select Code to Download

Select or download this

while ( <DATA> ) {
    my ( $core) = /^foo (.*) bar$/;
...
foo m 1 m 2 m 3 m 4 bar
foo m 2 m 4 m 7 bar
foo m 1 bar