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

    my $foo = sub { "$1 years ago" };
    my $bar = 'Four score and perhaps seven';

    $bar =~ s/perhaps (seven)/&$foo/e;
    print $bar;