$ perl | wc -l