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