#!/usr/local/bin/perl
while (<>) {
  @Chars = split('');
  foreach $char (@Chars) {
     $val = ord($char) & 0x7f;
     $char  = pack("C",$val); 
     print "$char";
  }
}
