line: FOO BAR /$/ FOO: "foo" BAR: "bar" #### if (defined (my $ret = $p->line($test))) { #### no match: 'foo' no match: 'foo ' match: 'foo bar' -> '' no match: 'football' no match: 'fog' no match: 'barfoo' no match: 'bar foo'