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

##</code><code>##

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