next until ($seed=~/[ACGTN-]/ && (!($seed =~ /\$seed/))) { 

# should be:
next unless ($seed=~/[ACGTN-]/ && (!($seed =~ /\$seed/)));