Help for this page

Select Code to Download


  1. or download this
    my @var = $test =~ /\d+/g;
  2. or download this
    my ($list) = $test =~ /\[ ( [^\]]+ ) \]/x, $1); my @var = split /,/, $list;