Select Code to Download

my %immediate = map { m/(\d+)/; $1 => 1; }
  grep /m_immediate_/, (keys %{$cgi->Vars});