$var = "sclerosing 1954, 5–7, 54, 59f-60d, 90, 114";

$var =~ s/^\S+\s+\d+,\s*//; # remove first word and digit string


##</code><code>##

my @pieces = split /,\s*/, $var;


##</code><code>##

$var = "sclerosing 1954, 5–7, 54, 59f-60d, 90, 114";

my ( $junk, @pieces ) = split /,\s*/, $var;