perl -pe 's/#.*$//'