c:\@Work\Perl\monks\OldChamp>perl -wMstrict -le
"my $s = 'keep me ZIP delete this ZAP also keep this ZIP kill too ZAP keep too';
 print qq{'$s'};
 ;;
 (my $t = $s) =~ s{ ZIP .* ZAP }{}xmsg;
 print qq{greedy .*: '$t'};
 ;;
 ($t = $s) =~ s{ ZIP .*? ZAP }{}xmsg;
 print qq{lazy .*?: '$t'};
"
'keep me ZIP delete this ZAP also keep this ZIP kill too ZAP keep too'
greedy .*: 'keep me  keep too'
lazy .*?: 'keep me  also keep this  keep too'