#!/usr/bin/perl -w
use strict;

sub is_odd { unpack "%1b*", pack "b*", shift }

for(1..10) {
    print is_odd("1" x $_), "\n";
}
__END__
1
0
1
0
1
0
1
0
1
0
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.