$code = "\$test";
if($code =~ /\$(.+)/){
          print $1;
}