c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"'keep your powder dry' =~ /(pow)/;
 ;;
 $_ = 'a_b_c';
 ;;
 my %h;
 $h{ (/a_(.*)_c/)[0] } = qq{boom_$1};
 ;;
 dd \%h;
"
{ b => "boom_pow" }