>perl -wMstrict -le
"sub do_something_with {
   print q{in do_something_with: '}, join(q{' '}, @_), q{'};
   return join '', reverse @_;
   }
 my $s = 'abc ABC abc';
 $s =~ s{ (a)(b)(c) }
        { die qq{wrong number ($#-) of captures} if $#- != 3;
          my ($aye, $bee, $cee) =
            map eval qq{\$$_}, 1 .. $#-;
          do_something_with($aye, $bee, $cee);
        }xmsige;
 print $s;
"
in do_something_with: 'a' 'b' 'c'
in do_something_with: 'A' 'B' 'C'
in do_something_with: 'a' 'b' 'c'
cba CBA cba