open(TAIL, "tail -f /var/log/messages |") or die "etc";
while (<TAIL>)
{
  if(/type1/) { print SUBLOG1 $_; }
  if(/type2/) { print SUBLOG2 $_; }
  # etc
}