print("\n\nEnter a binary number:");
chomp(my $binary=<STDIN>);
if ( $binary =~/\D.*/ ) { 
    print("Not a binary number!\n");exit;}