Help for this page

Select Code to Download


  1. or download this
    (undef, my $foo, undef, my $bar) = @array;
    
  2. or download this
    my $foo = "ab";
    (my $avar, $foo) = ($foo =~ /(.)(.)/);