#! perl

$/ = "Username: ";

my $re = q#^(\w+)\s+Owner:\s+(.+)\s+Last Login:\s*(.+?)\s*\(interactiv
+e\),\s*(.+?)\s*\(non-interactive\).*$#;

while (<>) {
    if (m|$re|ms) {
        printf "%s,%s,%s,%s\n",$1,$2,$3,$4;
    }
}
[download]