Select Code to Download

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

$data = $value->( $data );