in reply to Re: perl do's and don'ts
in thread perl do's and don'ts

$binary=~/^[01]*$/
should probably use a + instead of a *
$binary=~/^[01]+$/