How about: my $ex = 'abcdef' =~ /(cde)/ ? $1 : '';?
In reply to Re: Tidiest extract or define method? by BrowserUk in thread Tidiest extract or define method? by Peterpion