#!/usr/bin/perl -wuse strict;my $number = 10;while () { chomp; print "You entered: $_\n"; if ($_ == $number) { $_++; redo; } print "Going to read the next number now...\n";}