#!/usr/bin/perl -w

while (<STDIN>) {
  @list = unpack ('C*', $_);
  foreach $byte (@list) {
    print chr ($byte - 5);
  }
}

# another version; does the same things
#
# foreach $b (unpack ('C*', <>)) { print chr ($b - 5); }