Select Code to Download

#!/usr/bin/perl
use strict;
...
$value =~ s/$match/$edits{$1}/g;

print $value;

This string is all foobar, but a little Perl should swap the bars and 
+foos