$wort="abcdefgxyz";
$abc="cdefg";
$cde="xyz";
while ($abc =~ /????????/gi) {
}