#### ($param) = grep /^page\d+\.x$/, $cgi->param; #### ($page) = map /^page(\d+)\.x$/, $cgi->param;