package MyApp;

use strict;
use warnings;

use base 'CGI::Application';

sub setup { 
    my $self = shift;
    # ... other stuff

    my @modes = grep /^rm_/, keys %MyApp::;
    $self->run_modes( map { /rm_(.*)/ => $_ } @modes );
}