my $namespace = "here";
while (<DAT>) {
    s/([\$\@\%])/$1$namespace\::/;
    eval $_;
}