perl -lne '$seen{$ARGV} = 1 if /^'"$input/i }{ print for keys %seen" *