if ($regex1) { 
next if (( $accpyn1) && ($line1 =~ m/$regex1/));
next if ((!$accypn1) && ($line1 !~ m/$regex1/));
}