PROMPT: {
    chomp($a = <STDIN>);
    $a =~ tr/0-9.//cd;

    unless (length($a))
    {
        print "Please enter a number\n";
        redo PROMPT;
    }
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.