#!/usr/bin/perl
use strict;

 my @templates = <DATA>;
    sub gen {
    my $num = @_[0];
    my $num = ord $num;
    my $phrase = @templates[rand @templates];
    $phrase =~ s/NUM/$num/;
    $phrase =~ s/\n//;
    chomp($phrase);
    return $phrase;
    }

    print "Decrypt?\n(y/n)";
    my $mode = <STDIN>;
    chomp($mode);
    system("clear");

if ($mode eq "n") {

$/ = undef;
my $input = <>;
my @chars = split("", $input);
my $foo;

my @names = ("Buisness Professional","Decision Maker","Sir/Mam","Lucky
+ Individual");
my $name = @names[rand @names];
print "Dear " . $name . ",\n\n";

foreach $foo(@chars) {
print gen($foo);
}
}

if ($mode eq "y") {

$/ = undef;
my $input = <>;
my @nums = ($input =~ /(\d*)/g);
my @chars = map(chr, @nums);
my $foo;
foreach $foo(@chars) {
print "$foo";
}

}
__DATA__
EARN YOUR HIGHSCHOOL DIPLOMA IN NUM HOURS OR LESS IN YOUR SPARE TIME!!
+!!!!!!!!
We have helped individuals around the world in NUM countries live the 
+lives they have always dreamed of!!!!!!!
Lose NUM pounds just by SLEEPING!!!!!!!!
Make NUM dollars an hour as an affilliate of a rapid growth marketing 
+firm!!!
This electronic message conforms with senate bill NUM Section A.
Lose weight the quick and easy way, CALL FOR A FREE NUM day sample.
REAL RESULTS IN NUM DAYS!!!!!!!!
TO ORDER CALL YOUR OPERATOR AND ASK FOR EXTENSION NUM!!! OPERATORS STA
+NDING BY!!!!!!!!!!
you can become rich inside NUM DAYS!!!!!!!!!!! 
Jim Jones tried our product and his only problem now is where to park 
+his NUM cars!!!
success is yours is NUM days or less!!!!!!!!
CALL NOW AND GET A FREE GIFT WORTH OVER NUM DOLLARS!!!!!
GENERATE CASH FLOW AND ONLY WORK NUM HOURS EACH YEAR!!!!!!
YOU HAVE BEEN CHOSEN OUT OF NUM LUCKY PEOPLE TO RECIEVE THIS SPECIAL O
+FFER!!!!
comes in NUM delectable flavors!!!
Order in the next NUM days AND YOU MAY WIN A FREE CAR!!!!!!!
Have you ever noticed people love convenience? CAPITALIZE ON THIS LIKE
+ OUR NUM HAPPY affiliates!!!
NEED TO GET OUT OF DEBT? WOULD NUM DOLLARS HELP? OF COURSE IT WOULD!!!
+!
THIS IS NOT SPAM! THIS IS A LEGAL WAY TO MAKE NUM DOLLARS AN HOUR DOIN
+G EASY WORK!!!!!!!!!!!!!
We are licensed to operate in NUM countries. (not garunteed).
Linda Corgetto raves "Your product let me lose NUM pounds and make tho
+usands of dollars!!!!"
FOWARD THIS MESSAGE TO NUM PEOPLE OR DEATH AND ETERNAL MISFORTUNE WILL
+ HAUNT YOUR IMMORTAL SOUL!!!!!!

[download]

In reply to SpamStego by beretboy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.