#### mdp.travel.co.uk #### $find=q[[push1\.mycompany\.com<\/control_link_address>\s*\n\s*-->]]; $replace=q[$find\n mdp.travel.co.uk<\/control_link_address>\n]; $cmd=qq[perl -npe "s/$find/$replace/g" -i /tmp/ls.conf];