Select Code to Download

perl -e '@d=([0,"BE"],[3,"BUS"],[4,"BUS2"]); @a=map($_ , split(/,/, "B
+US2,BE") ) ; @b=map { my $mapkey=$_; map { [@{$d[$mapkey]}] if $d[$ma
+pkey]->[1] =~ /$a[$_]/ } 0..$#a } 0..$#d; use Data::Dumper;print Dump
+er(@b);'
$VAR1 = '';
...
          'BUS2'
        ];
$VAR6 = '';

my @d=([0,"BE"],[3,"BUS"],[4,"BUS2"]);        # some default values
my @a=map($_ , split(/,/, "BUS2,BE") ) ;      # a customer setting for
+ instance
...
          'BUS2'
        ];
$VAR6 = '';