while ($sth=~/sth(sth)/g)
 {}

##</code><code>##

$mycopyofstring=$sth;
while ($mycopyofstring=~s/sth(sth)//) {
}