# perl -MO=Deparse -e '$ln=" < LOGIN > "; $ln =~ ?<[ ]*LOGIN[ ]?'
$ln = ' < LOGIN > ';
$ln =~ ?<[ ]*LOGIN[ ]?;
-e syntax OK