while (<FILENAME>) {
s/(?<!\\)\$[a-zA-Z0-9_]+/change_name($&)/ge;
}