1 files changed, 1 insertions, 1 deletions

diff --git a/DXF.pm b/DXF.pm
index e6416bb..259db8a 100644
--- a/DXF.pm
+++ b/DXF.pm
@@ -1177,7 +1177,7 @@ sub _need_vars_and_types {
   my (%vars,%types,%nodes);
   for (@{$self->get_sections->{HEADER}{children}}) {
     my $name = $_->{name};
-    $name =~ s/^$//;
+    $name =~ s/^\$//;
     my @k = keys %{$_->{attrs}};
 
     my ($type,$value) = @k == 1 ? ($k[0],$_->{attrs}{$k[0]}) :