#!/usr/local/bin/perl
 
require 5.008;
use strict;
my $helper=sub { print @_ };
$_="[[This]] [[is]] [[a]] [[test]]";
s/(\w+)/$helper->($1)/eg;