while (my $line = <SESAME>){

  my ($tempa, $tempb)     = split (/<CS_REFCLT>/,$line)	
  my ($value, $tempc) = split (/<\/CS_REFCLT>/,$tempb);

}