#!/usr/bin/perl
while (<>) {
	chop;
	next unless -f $_;      # ignore specials
	# Your code here.
}
