#!/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 STANDING 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 OFFER!!!!
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 DOING EASY WORK!!!!!!!!!!!!!
We are licensed to operate in NUM countries. (not garunteed).
Linda Corgetto raves "Your product let me lose NUM pounds and make thousands of dollars!!!!"
FOWARD THIS MESSAGE TO NUM PEOPLE OR DEATH AND ETERNAL MISFORTUNE WILL HAUNT YOUR IMMORTAL SOUL!!!!!!