Help for this page

Select Code to Download

Select or download this

while (my $line = <SESAME>){

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

Select or download this

#!/usr/bin/perl

...
    my ($t, $elt)= @_;
    push @numbers, $elt->text();
}