What is this?

# ####################################################
# https://www.wibit.net/whatIsThis
# what-is-this.pl
# NOTE: A perl interpreter is required to run this
#       code.
# ####################################################
# Some people believe the number 9991 is a sign
# that an Angel is communicating with us.
#
# If we can connect with the Angel's message,
# we will be overwhelmed with hope & inspiration.
#
# So, let's put that number into an arbitrary algorithm
# & see what the Angel is telling us...
# ####################################################
print "\033[2J";
print "\033[0;0H";
$source 
= pack("C*", 75, 109, 90, 107, 91, 106, 97, 90, 93, 24, 108, 103, 24, 72, 93, 111, 60, 97, 93, 72, 97, 93);

print $source . "\n\n";
print "what does the secret message say?" . "\n\n";
print "Press [ENTER] to find out...";

<STDIN>;

$output = $source;

for ($i = 9991; $i >= 0; $i--) {
	for($j = 0; $j < length($output); $j++) {
		$b = ord(substr($output, $j, 1));
		$b = $b + 1;
		$ch = pack("C*", $b);
		$p1 = substr($output, 0, $j);
		$p2 = substr($output, $j + 1, length($output) - 1);
		$output = $p1 . $ch . $p2;

		printf "%08b", $b;
	}
	for($t = 0; $t < 10000; $t++) {}
}

for($i = 0; $i < 10; $i++) {
	print "\n";
}

print ">>>>>>>>>>>>>>>>>>>>>>> ";
print $output;
print " <<<<<<<<<<<<<<<<<<<<<<<";

for($i = 0; $i < 10; $i++) {
	print "\n";
}
	

Running in Windows

Download and Install ActivePerl

https://www.activestate.com/products/activeperl/downloads/

Create Source Code File

Open a text editor (Notepad, for example). Copy and paste the above code into the text editor.

Save the text file as what-is-this.pl.

NOTE: If you're using Windows Notepad you should put quotation marks around the file name ("what-is-this.pl") when saving to prevent a .txt file extension.

Open Command Prompt

Search for "Command Prompt" and click on it.

Navigate to Source File Location

Note the file location where you saved what-is-this.pl.

Example: C:\Users\WiBit.Net\Desktop

In Command Prompt type cd "FILE LOCATION" and press [ENTER].

Example: cd "C:\Users\WiBit.Net\Desktop"

Execute Script

To execute the perl script, type perl SCRIPT_FILENAME.pl and press [ENTER].

Example: perl what-is-this.pl