@files = <>;
chomp @files; # Since there are trailing newlines
foreach $file (@files) {
    if (-f $file) {
        print "This is a file: " . $file."\n";
    }
    if (-d $file) {
        print "\n\nThis is a directory: " . $file."\n";
    }
}

##</code><code>##

use strict;
use warnings; 

my @files = <>;
chomp @files;
foreach my $file (@files) {
    if (-f $file) {
        print "This is a file: $file\n";
    }
    if (-d $file) {
        print "\n\nThis is a directory: $file\n";
    }
}