#!/usr/bin/perl

while ( "$input" == "" ){
     print "Enter a string:\t";
     chomp (our $input=<STDIN>);
     print "You entered $input\n";
}

print "Enter a whole number:\t";
chop(my $number=<STDIN>);