Help for this page
$tekst = "hoii hoi and oi"; while($tekst=~/\b(\w\w\w)\b/g){ print "$1\n"; }
/\b(\w\w\w)\b\g1/g)