in reply to If line matches, print column, else print file name

For starters:

my $name = (split /\./,$kickstart)[0];

[download]
But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)

In Section Seekers of Perl Wisdom