c:\@Work\Perl>perl -wMstrict -le
"print qq{perl version $]};
 ;;
 q(abc de f abcdef) =~ m/
   ( (\w{3}) .* \2 )
   /x and print qq{\$1 '$1'};
"
perl version 5.008009
$1 'abc de f abc'