Select Code to Download

%constants = ( 'foo' => 'bar', 'baz' => 'bap' );

$pattern = join('|', map(quotemeta($_), keys %constants) );

eval("s{($pattern)}{\$constants{\$1)}e");