Select Code to Download

if ($fh == $ircsock) {
  ...
...
    ...reopen $ircsock...
    ...add $ircsock to $sel...
  }

my $clientdata = "";

...
  ... do your per-line regex stuff here...
  }
}