--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/cfunge/cfunge-src/tests/perl.b98	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,21 @@
+"LREP"4(v
+v       <
+                > a"detcelfeR" >:#,_@
+> 0 '" "ih" '" #^ E >:#,_ v
+v                         <
+
+> 0 "5+1" I. a, >:#,_ v
+                      >                     v
+
+v "$x=" "' "Hello world!\n" "' "; print $x"0<
+   > a"detcelfeR" >:#,_@
+> #^ E >:#,_ a,    v
+v "'"x""'" x 5934"n<
+> #v E a2*3+y1-.a, @
+   > na".detcelfer E :DAB">:#,_@
+
+This program should print:
+hi6
+Hello world!
+1
+5934