perl -i.orig -pe 'BEGIN{$localvar = "xyz"}; s!http://domain.com/folder/subfolder!http://domain.com/newfolder/newsubfolder/$localvar!g' your_filename more_files