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