#!/usr/bin/perl -w
use strict;
$_ = "Ohg vg'f ernyyl n irel fvzcyr gnfx...";
tr/A-Za-z/N-ZA-Mn-za-m/;
print;
[download]

and a byte more compact: #!/usr/bin/perl -w use strict; $_ = "Ohg vg'f ernyyl n irel fvzcyr gnfx..."; y/A-Za-z/N-ZA-Mn-za-m/; print;

Bah. Going for compactness...

echo "Ohg vg'f ernyyl n irel fvzcyr gnfx" | perl -pe 'y/A-Za-z/N-ZA-Mn
+-za-m/'
[download]

--
Ryan Koppenhaver, Aspiring Perl Hacker
"I ask for so little. Just fear me, love me, do as I say and I will be your slave."

thank you for doing my homework now im sure to gat an 'A+"

#!/usr/bin/perl -w
use strict;
$_ = "Ohg vg'f ernyyl n irel fvzcyr gnfx...";
my %caesar;
@caesar{'A'..'Z','a'..'z'} =
    ('N'..'Z','A'..'M', 'n'..'z', 'a'..'m');
my $decoded;
$decoded .= $caesar{$_} ? $caesar{$_} : $_ for split //;
print $decoded, "\n";
[download]

#!/usr/bin/perl -w
use strict;
my $line = "Lbh pbhyq rira hfr n gvrq inevnoyr... 3-)";
my %caesar;
@caesar{'A'..'Z','a'..'z',0..9} =
    ('N'..'Z','A'..'M', 'n'..'z', 'a'..'m', 5..9,0..4 );
sub TIESCALAR{bless[pop]} 
sub FETCH{exists $caesar{$_}?$caesar{$_}:$_}
tie my $chars, '', '';

print $chars for split //, $line;
[download]

Although I like the use of transpose more.