/usr/bin/perl '-nemap$.%$_||redo,2..$.++;print$.--'