#!/bin/perl
# Script ex8.pl
$loop = 1;
while  ($loop == 1) {
	print "Enter a number or End: ";
	$inval = <STDIN>;
	chop $inval;
	if ($inval =~ /end/i) { 
	last; 
	}
	if ($inval =~ /^[-0-9]*$/) {
		$count ++ ;
	}  else  {
		$count1 ++ ;
	}
}	
print "Total amount of numbers entered was: ", $count, "\n";
print "And non-numbers was: ", $count1, "\n";