in reply to substr regex alternative

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