Shell and Perl 1 - Unix/Linux's wc command implementation using Perl while loop & regex

#!/usr/bin/perl -w
# invent sekar  - 3/5/2014 - wednesday
# Perl implementation of Linux wc command, using a while loop and of course, the great regex ;).

print "Please enter line1:\n";
my $line1=<STDIN>;
chomp $line1;

$line2="A quiet bubble floating on a sea of noise. - The god of small things - Arundhati Roy";
$line3="Hello how are you";

################################
# Finding number of words: wc -w
#################################
print "Finding numer of words: wc -w\n";
print "---------------------------------\n";
$nWords=0;

while ($line1 =~ /\b\w+\b/g){ $nWords++; }
print "line1 is $line1\n";
print "\$line1 contains $nWords words\n";

$nWords=0;
while ($line2 =~ /\b\w+\b/g){ $nWords++; }
print "line2 is $line2\n";
print "\$line2 contains $nWords words\n";

$nWords=0;
while ($line3 =~ /\b\w+\b/g){ $nWords++; }
print "line3 is $line3\n";
print "\$line3 contains $nWords words\n\n";

################################
# Finding number of characters: wc -m
#################################
print "Finding numer of characters : wc -m\n";
print "---------------------------------\n";

$nChar=0;
while($line1 =~ /./g){$nChar++;}
print "line1 is $line1\n";
print "\$line1 contains $nChar characters\n";

$nChar=0;
while($line2 =~ /./g){$nChar++;}
print "line2 is $line2\n";
print "\$line2 contains $nChar characters\n";

$nChar=0;
while($line3 =~ /./g){$nChar++;}
print "line3 is $line3\n";
print "\$line3 contains $nChar characters\n";

A Sample Run:

# ./wc-for-loop-test.pl

Please enter line1:

hiiiiiiii

Finding numer of words: wc -w

---------------------------------

line1 is hiiiiiiii

$line1 contains 1 words

line2 is A quiet bubble floating on a sea of noise. - The god of small things - Arundhati Roy

$line2 contains 16 words

line3 is Hello how are you

$line3 contains 4 words

Finding numer of characters : wc -m

---------------------------------

line1 is hiiiiiiii

$line1 contains 9 characters

line2 is A quiet bubble floating on a sea of noise. - The god of small things - Arundhati Roy

$line2 contains 84 characters

line3 is Hello how are you

$line3 contains 17 characters