print$string=~/world/g;  # Or
print$string=~/w.{4}/g;