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