#!/usr/bin/perl -w

use strict:
@ARGV = '/Perl/LearningPerl/Test';

while(<>){
if(/\.\s+([a-z]+)/){
print "$1 is not capitalized\n";
}
}