while (my $line = <SESAME>){

  my ($tempa, $value, $tempb)= split m#</?CS_REFCLT>#, $line, 3;
}