in reply to regexp - character class containing zero does not find zero

There's a few responses about why it's failing. Here's an idea on how to repair it: 
my ($test) = @ARGV;

unless (defined($test) && test =~ /^[01]+$/)
{
     die "...";
}

my @test_queue = split('', $test);

[download]

In Section Seekers of Perl Wisdom