#!just another perl hacker,
@ARGV=$0,$_=<>,s,..,,&&print