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