c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'abcdef';
 ;;
 $s =~ s{ \w \w }{ print qq{$&};  ',NULL,'; }xmsge;
 print qq{'$s'};
"
ab
cd
ef
',NULL,,NULL,,NULL,'