[MacPerl] Grep based on user input?

[Matthew Fischer <mfischer@fishmancom.com>]

How can you dynamically build a grep pattern based on user input from a form?

i.e.: (I know this doesn't work):

  if ($input{'month'} ne "") {
      @allfiles = grep(/$input{'month'}/,@allfiles); 
      }


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org