$a_test="1";
  $b_test="the RTE";


##</code><code>##

  $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";
  }

##</code><code>##

  ${(substr($text,0,4))}=substr($text,5,length($text)-5);
  print " output: $titl\n";