use strict; use warnings; my $num; do { chomp( $num = <> ); } until $num eq '47'; print $num;