Select Code to Download

#!/usr/bin/perl

...
    print STDOUT pack("N",$index{$word});
  }
}

#!/usr/bin/perl
binmode STDIN;
...
%index=unpack "(N(N/a))*",$ind;
@con=unpack "N*",$con;
print join(' ',@index{@con});