Select Code to Download

use strict;
my @depts=qw/dept1 dept2 dept3/;
for(@depts){
   system("grep $_ weblog >> $_.log");
}

perl -lne'system("echo \"$_\" >> $1.log")if/<info><(\w+)>/;' logfile