>perl -wMstrict -le
"my $var= 'sclerosing 1954, 5-7, 54, 59f-60d, 90, 114';
 my (undef, $tail) = split m{\s* , \s*}xms, $var, 2;
 my $tag = qq{<t> $tail </t>};
 print $tag;
"
<t> 5-7, 54, 59f-60d, 90, 114 </t>