perl -pi -e 's/\$oldname\b/\$oldname/g'