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

Just so that we don't steer you wrong, could you tell us what you think this piece of code is doing? Just a plain english description will do.

It might also be advantageous to you to post a little more of your code, including the rest of this subroutine, and the part where it is called.