Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $bit_flipped = ( grep{ $bit_flag & $_ } @bit_list ) ? 1 : 0;

# Continue on with the application
  2. or download this
    print$_ for(map{chr($_)}split(/\s+/,join(/\B?:\w+[^\s+]/,<DATA>)));
__DATA__
67 111 100 101 32 80 101 114 108