#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

my $s = '=b!isfg>(fybnqmfAfybnqmf/dpn(?fybnqmfAfybnqmf/dpn=0b?';

say join "", map { chr(ord($_) - 1) } split //, $s;