Select Code to Download

@a = ('a', 'b', 'c', 'd', 'e');

$b = @a;

$b = scalar @a;

$x = () = "abcdABCabA" =~ /a/ig; # Count A's regardless of case.