From 24f4e57b2b4b44141004806af423d084f30c05d2 Mon Sep 17 00:00:00 2001
From: Bill Rossi <bassguitarbill@gmail.com>
Date: Mon, 18 Dec 2023 09:46:31 -0500
Subject: [PATCH] Perl (yay)

---
 perl/2015/1/problem.pl | 19 +++++++++++++++++++
 perl/bin/run           |  6 ++++++
 2 files changed, 25 insertions(+)
 create mode 100644 perl/2015/1/problem.pl
 create mode 100755 perl/bin/run

diff --git a/perl/2015/1/problem.pl b/perl/2015/1/problem.pl
new file mode 100644
index 0000000..6af788a
--- /dev/null
+++ b/perl/2015/1/problem.pl
@@ -0,0 +1,19 @@
+open(FILE, "<", "../data/2015/1/input.txt") or die $!;
+
+my $read, $steps, $floor = 0;
+while (read FILE, $char, 1) {
+    $floor += 1 if $char eq "(";
+    $floor -= 1 if $char eq ")";
+}
+print "Part 1: $floor\n";
+
+seek FILE, 0, 0;
+$floor = $steps = 0;
+while (read FILE, $char, 1) {
+    $floor += 1 if $char eq "(";
+    $floor -= 1 if $char eq ")";
+    $steps++;
+    last if $floor < 0;
+}
+
+print "Part 2: $steps\n";
diff --git a/perl/bin/run b/perl/bin/run
new file mode 100755
index 0000000..9f40096
--- /dev/null
+++ b/perl/bin/run
@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+
+year=$1
+day=$2
+
+time perl ./$year/$day/problem.pl