if( $input =~ /^(\d+)$/ )
{
    $a = $1;
}
else
{
    print "Please enter a number\n"
}