Select Code to Download

  my @A = grep m/A/ && !defined($_ = undef), @foo ;

  use strict ;
  use warnings ;
...
  print "B: @B\n" ;
  print "C: @C\n" ;
  print "   @foo\n" ;