Select Code to Download

 if ($data =~ /patternmatch/i)
  {
...
    print FILY "Skip $data\n";
    return ">bas2.txt";
  }