my (@value) = $line =~ m|<CS_REFCLT>(\d+)</CS_REFCLT>|g;
or
my (@value) = $line =~ m|<CS_REFCLT>((?:(?!</CS_REFCLT>).)*)</CS_REFCLT>|g;