$start=1;
  while (index($text,'$',$start) > 0)
  {
   $dsign=index($text,'$',$start);
   $blank=index($text,' ',$dsign);
   $w=substr($text,$dsign,($blank-$dsign));
   ${(substr($w,1,length($w)-1))}=${(substr($w,2,length($w)-2))};
   $start = $blank += 1;
   print " result: ${(substr($w,1,length($w)-1))}\n";
  }