foreach (@FILE) { s/()([^ ]*)/$1$2<\$>/; }