Select Code to Download

$tmp = $line->source_str;
if ($tmp =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
...
  # print "Help Me\t" . $line->source_str . "\n";
  my @sources = $configs{$fw}->obj($tmp);
}