On Sun, Jun 13, 2010 at 05:06:28PM +0200, Jan Henning Thorsen wrote: > What about: > > perl -e 'use Test::More "no_plan"; like("X", qr/(X)(?{$x=$1})/ ); diag $x' Thanks, that's clever and it does the job. I still think I like Colin's "stop trying so hard" approach best, though. Tom