#!/usr/bin/perl -l

if ( ($ARGV[0] eq '-i' || @ARGV == 0) && !-t STDIN) {
    shift;
    chop, unshift(@ARGV, $_) 	while <STDIN>;
} elsif (@ARGV == 0) {
    @ARGV = <*>;
} 

while ($_ = shift) {
    print if -f && -T;
}