>perl -wMstrict -le
"my @array = qw(A1  A2  A3  $1  $2);
 ;;
 my $message = 'If you choose a yellow car everyone will follow you!';
 my $my_trigger =
   qr{If you (.*) a (?<COLOR>.*) car (?<WHOM>.*) will follow you!};
 ;;
 if ($message =~ $my_trigger) {
   ;;
   my $option = eval qq{ qq{$array[3]} };
   my $color  = qq{color was: '$-{COLOR}[0]'};
   my $whom   = $+{WHOM};
   ;;
   print qq{option of '$array[3]' was: '$option'};
   print $color;
   print qq{whom: '$whom'};
   }
 else {
   print 'no match';
   }
"
option of '$1' was: 'choose'
color was: 'yellow'
whom: 'everyone'