Bad news: regexen and substitutions don't work that way.

Good news: if use an anonymous sub instead you can do what you want.

my %functions = ( "\\.vms" => sub { my $t = shift; $t =~ s{/}{}; $t } 
+);
[download]

Then call the sub when you get a match.

$data = $value->( $data );
[download]