Sounds like you need a negative look-behind assertion.

@variables = m/(?<!\\)\$[a-zA-Z0-9_]+/g;