shorten the .procmailrc in size

Hi,

my .procmailrc file grows and grows with a lot of similar lines.
Does anybody have a good idea how to shorten it?

my current recipe:

  :0c
  * ^TO_first(_at_)address(_dot_)com
  *!^FROM_DAEMON
  |perl $HOME/pgm.pl 123

  :0c
  * ^TO_second(_at_)address(_dot_)com
  *!^FROM_DAEMON
  |perl $HOME/pgm.pl 456

  :0c
  * ^TO_third(_at_)address(_dot_)com
  *!^FROM_DAEMON
  |perl $HOME/pgm.pl 789 

  :0c
  * ^TO_yougetthepicture(_at_)address(_dot_)com
  *!^FROM_DAEMON
  |perl $HOME/pgm.pl other(_at_)mail(_dot_)com

I can generate such a file from my database:

  first(_at_)address(_dot_)com\123
  second(_at_)address(_dot_)com\456
  third(_at_)address(_dot_)com\789
  yougetthepicture(_at_)address(_dot_)com\other@mail.com

But how do I get procmail to work with it?

Thank you so much in advance,

  Costa