From d03e7df85bc3320c15d0e8cca5afdb02215a8942 Mon Sep 17 00:00:00 2001
From: NezumiRonin <nezumironin@gmail.com>
Date: Tue, 9 Mar 2021 22:50:45 -0600
Subject: [PATCH] Create perlchemist.pl

Chemist ported to Perl!
---
 24 Chemist/perlchemist.pl | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 24 Chemist/perlchemist.pl

diff --git a/24 Chemist/perlchemist.pl b/24 Chemist/perlchemist.pl
new file mode 100644
index 00000000..01ed9f02
--- /dev/null
+++ b/24 Chemist/perlchemist.pl	
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+use strict;
+
+print ' 'x33 . "CHEMIST\n";
+print ' 'x15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
+print "\n"; print "\n"; print "\n";
+print "THE FICTITIOUS CHECMICAL KRYPTOCYANIC ACID CAN ONLY BE\n";
+print "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID.\n";
+print "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE\n";
+print "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST\n";
+print "DECIDE WHO MUCH WATER TO ADD FOR DILUTION. IF YOU MISS\n";
+print "YOU FACE THE CONSEQUENCES.\n";
+
+my $T=0;
+while ($T<9) {
+	my $A= int(rand(1)*50);
+	my $W= 7*$A/3;
+	print "$A LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER ($W)";
+	print "? "; chomp(my $R = <STDIN>);
+	my $D= abs($W-$R);
+	if ($D>$W/20) {
+		print " SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB\n";
+		print " OF QUIVERING PROTOPLASM!\n";
+		print " HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.\n";
+		print "\n";
+		$T++;
+		} else {
+		print " GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!\n";
+		print "\n";
+		}
+	}
+
+print " YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR\n";
+print " YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY.\n";
+exit;
+
+