while (<>) { chomp; print join("\t", (split /:/)[0, 2, 1, 5] ), "\n"; } [download]
Help me oh monastic mentors.
In reply to Optiperl as a tool by Anonymous Monk