Help for this page

Select Code to Download


  1. or download this
    my ($a, $b, $c, $d) = 'abcd' =~ /(w)(x)(y)(z)/;
{
    no warnings 'uninitialized';
    print "$a $b $c $d";
}
  2. or download this
    printf "%s %s %s %s\n", $a//'', $b//'', $c//'', $d//'';
  3. or download this
    my ($a, $b, $c, $d) = ( 'abcd' =~ /(w)(x)(y)(z)/, '','','','' );