Select Code to Download

#!/usr/bin/perl -w
use strict;
...

$string =~ /anotherwordhere\s+(.*) wordhere/;
print "Greedy match    : '$1'\n";

Non-greedy match: 'foobar'
Greedy match    : 'foobar wordhere baz qux'