diff --git a/BytesOfLove/game/images/Perl/Perl_Base.png b/BytesOfLove/game/images/Perl/Perl_Base.png
new file mode 100644
index 0000000..cafa135
Binary files /dev/null and b/BytesOfLove/game/images/Perl/Perl_Base.png differ
diff --git a/BytesOfLove/game/images/Perl/Perl_Talking.png b/BytesOfLove/game/images/Perl/Perl_Talking.png
new file mode 100644
index 0000000..20503b3
Binary files /dev/null and b/BytesOfLove/game/images/Perl/Perl_Talking.png differ
diff --git a/BytesOfLove/game/script.rpy b/BytesOfLove/game/script.rpy
index f4160fd..b35de81 100644
--- a/BytesOfLove/game/script.rpy
+++ b/BytesOfLove/game/script.rpy
@@ -94,6 +94,8 @@ default js_rep = 50
 
 #Perl
 default pe_rep = 50
+image pe_normal = "Perl/Perl_Base.png"
+image pe_talk = "Perl/Perl_Talking.png"
 
 #Breakout Leader
 image bsl_normal = "SideCharacters/BreakoutLeader/BreakoutLeader_Normal.png"
diff --git a/BytesOfLove/game/scripts/before_orientation/before_orientation_choices/w0_d1_DoorDash.rpy b/BytesOfLove/game/scripts/before_orientation/before_orientation_choices/w0_d1_DoorDash.rpy
index a0036a8..9914ac8 100644
--- a/BytesOfLove/game/scripts/before_orientation/before_orientation_choices/w0_d1_DoorDash.rpy
+++ b/BytesOfLove/game/scripts/before_orientation/before_orientation_choices/w0_d1_DoorDash.rpy
@@ -9,35 +9,56 @@ label w0_d1_DoorDash:
     mc "Uuuugggghhhhh. I’m so hungry. Can this loser hurry up? It isn’t that hard to deliver food."
     scene hotel_room_night with shorter_fade
     "{i}*20 more minutes later, there is a knock at the door*{/i}"
+    show pe_talk with dissolve
     u "\"Are you [mc]? I’ve got your food.\""
+    hide pe_talk
+    show pe_normal 
     mc "{i}*Annoyed*{/i} \"What took you so long?\""
-
+    hide pe_normal
+    show pe_talk
     u "{i}*Sigh*{/i} \"Orientation is tomorrow, so everyone is ordering food right now.\""
-
+    hide pe_talk
+    show pe_normal
     menu w0_d1_DoorDashTip:
         mc "\"Whatever, at least you finally got here.\""
-
         "Tip the driver":
             $ pe_rep = reputation(pe_rep, affection_change)
             $ byte = bytecoin(byte, -35)
+            hide pe_normal
+            show pe_talk
             u "\"Your total is 30 Bytecoin.\""
+            hide pe_talk
+            show pe_normal
             mc "{i}*Hands over 35 Bytecoin*{/i}"
             mc "\"Keep the change, I guess, have a good one.\""
+            hide pe_normal
+            show pe_talk
             u "\"Thank you.\""
+            hide pe_talk
+            show pe_normal
             mc "\"No problem.\""
             mc "{i}*Closes the door*{/i}"
+            hide pe_normal with dissolve
             
         "Don't tip the driver":
             $ pe_rep = reputation(pe_rep, -affection_change)
             $ byte = bytecoin(byte, -30)
+            hide pe_normal
+            show pe_talk
             u "\"Your total is 30 Bytecoin.\""
-            mc "{i}*Hands over 30 Bytecoin with no tip*{/i}"  
+            hide pe_talk
+            show pe_normal
+            mc "{i}*Hands over 30 Bytecoin with no tip*{/i}" 
+            hide pe_normal
+            show pe_talk
             u "\"What?! No tip? In this economy! Are you kidding me?!\""
             u "{i}*in a serious tone*{/i} \"You have no idea how much trouble I went through to get you your stupid Chipotle...\""
+            hide pe_talk
+            show pe_normal
             mc "\"You took eight years to get me my food, which is already cold.\""
             mc "\"Get lost, you’re lucky I’m even paying for this food at all.\""
             mc "{i}*Slams the door*{/i}"
-            
+            hide pe_normal with dissolve
     mc "{i}*Looks inside the chipotle bag*{/i}"
     mc "{i}*Shocked and angry*{/i} WHERE ARE MY CHIPS AND QUESO????"