#!/usr/bin/perl -w

$_ = "f xx or d xxx ol xxxx d";
print "before getting really greedy: $_\n";

/f(.*)or(.*)d/;
print "first .* matches $1 second matches $2\n";