Select Code to Download

perl -F: -al0ne '$i||=1;/^n/&&print$i;!/^u/&&print$F[1];/^$/&&$i++&&pr
+int$/'

LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
...
    print $F[1] if not /^u/;
    print $/ if /^$/ and $i++;
}

perl '-F: ' -al0ne '!/^u/&&print qq($F[1] );/^$/&&print$/'