Help for this page

Select Code to Download


  1. 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
  2. or download this
    my @pieces = split /,\s*/, $var;
  3. or download this
    $var = "sclerosing 1954, 5–7, 54, 59f-60d, 90, 114";

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