use strict; use warnings; while () { s|\b(\d{3,5})\b| bar bas. foo300bar bas. foo 123456 bar . foo bar bas. 1 foo 1 bar 2 bas bas.