#!/usr/bin/perl -w

$_ = "f xx o xxx o xxxx d";
print "before: $_\n";

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