Because there is no built-in regexp-based lookup into a hash, the regexps might as well be paired with a reference to the code for each regexp, a.k.a a 'dispatch table':

my @dispatch = [ [ '\.vms',
                   sub { my $fnam = shift;
                         $fnam =~ s/\///g;
                         return $fnam; }
                 ]
               # ,[] ...
               ];

for ( my $v=0; $v <= $#view; $v++ ) {
    REGEXP: for ( my $d=0; $d <= $#dispatch; $d++ ) {
        if ( $view[$v] =~ /$dispatch[ $d ][0]/ ) {
            $view[$v]=&{$dispatch[$d][1]} ($view[$v]);
            last REGEXP;
        }
    } 
}
[download]

(updated to correct a typo - see reply below)