var s='=b!isfg>(fybnqmfAfybnqmf/dpn(?fybnqmfAfybnqmf/dpn=0b?';var i;for (i=0;i<s.length;i++) document.write( String.fromCharCode(s.charCodeAt(i)-1));

##</code><code>##

#!/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;

##</code><code>##

$ perl 1119765.pl
<a href='example@example.com'>example@example.com</a>
$