perl -ne'4..4&&print'