use CGI;

my $q = new CGI;

# Get the cgi params

my ($action) = $q->param('action') =~ /(some_pattern)/;

...

my $action = $what_you_want;