- or download this
$var = "sclerosing 1954, 5–7, 54, 59f-60d, 90, 114";
$var =~ s/^\S+\s+\d+,\s*//; # remove first word and digit string
- or download this
my @pieces = split /,\s*/, $var;
- or download this
$var = "sclerosing 1954, 5–7, 54, 59f-60d, 90, 114";
my ( $junk, @pieces ) = split /,\s*/, $var;