use IO::Prompt::Hooked qw(prompt);

my $input = prompt(
  message  => 'Please enter 47:',
  validate => qr/^47$/,
);
print "You entered: $input\n";

##</code><code>##

Please enter 47: a
Please enter 47: b
Please enter 47: 42
Please enter 47: 47
You entered: 47