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