# START CONFIG
$firewall_log = "/home/jwilliams/firewall.txt";
$my_new_log = "/home/jwilliams/extracted_log";
# END CONFIG

open(FW_LOG, "$firewall_log");
@lines = <FW_LOG>;
close(FW_LOG);

open(MYNEWFILE, ">>$my_new_log");
foreach $line (@lines){
  if($line =~ /kernel Temporarily blocking host/ || $line =~ /blocked/){
    print MYNEWFILE $line;
  }
}
close(MYNEWFILE);

exit;