in reply to Re: Make this simpler?
in thread Make this simpler?

grep -e '^>' sample*.fast|cut -d\: -f1 |uniq -c

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom