Help for this page

Select Code to Download

Select or download this
my $foo = $bar =~ tr/,/,/ + 1;

Select or download this

    my $foo = my @a = split /,/, $bar;


...

    # But why doesn't this work?
    my $foo = () = split /,/, $bar;