perl -ple '$_ = "/efsprod/docmnt/" . substr $_, 1, 8' Textfile.txt