Help for this page

Select Code to Download


  1. or download this
    my ($a, $b, $c) = qw/asdf foo bar/;
    
    s/d/D/g for ($a, $b, $c);
    
    print "$a;$b;$c\n";
    
  2. or download this
    # Under Construction