Select Code to Download

#!/usr/bin/perl -w

...
my @inits = map {(split)[-3]} @lines;

print join("\n", @inits);

#!/usr/bin/perl -w

...
closedir $dirh;

print join("\n", @inits);