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

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