open(MYINPUTFILE, "cos2"); $/ = ''; while () { while ( /\b([\w'-]+) (\s+\1)+\b/gi ) { sed 's/$1/bandwidth/'; } }