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