foreach (@FILE){ s/(\S*)/$1<\$>/; }