perl -wE'say~~(()=<>)' yourfile