Select Code to Download

#!/usr/bin/perl
use warnings; # YOU FORGOT THESE!
use strict;
...
    print if(m!$regexp!o .. m!//! and not m!//!);
}
close FASTAF;