Select Code to Download

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