#!/usr/bin/perl

if ($#ARGV != 0) {
   print "Usage:  remquals <filename>\n";
   exit 0;
}

open (IN, "<$ARGV[0]");
while (<IN>) {
      s/\$[a-zA-Z_][a-zA-Z0-9_]*//g;
      print;
}
close(IN);
