feat: Porting Perl Template to Language Function (Fixes #613)

Commands/Languages/Perl/Perl-Language.ps.ps1

@@ -0,0 +1,47 @@
+Language function Perl {
+<#
+.SYNOPSIS
+    Perl Template Transpiler.
+.DESCRIPTION
+    Allows PipeScript to generate Perl.
+
+    Also Transpiles Plain Old Document
+
+    PipeScript can be embedded in a Plain Old Document block that starts with ```=begin PipeScript``` and ends with ```=end PipeScript```.    
+.EXAMPLE
+    .> {
+        $HelloWorldPerl = @'
+=begin PipeScript
+$msg = "hello", "hi", "hey", "howdy" | Get-Random
+"print(" + '"' + $msg + '");'
+=end   PipeScript
+'@
+
+        [Save(".\HelloWorld.ps1.pl")]$HelloWorldPerl
+    }
+
+    .> .\HelloWorld.ps1.pl
+#>
+[ValidatePattern('\.(?>pl|pod)$')]
+param()
+
+    # We start off by declaring a number of regular expressions:
+
+    $startComment = '(?>
+        (?>^|\[\r\n]{1,2})\s{0,}
+        =begin
+        \s{1,}
+        (?>Pipescript|\{)
+        [\s\r\n\{]{0,}
+    )'
+    $endComment   = '(?>
+        [\r\n]{1,3}
+        \s{0,}
+        =end
+        (?>\}|\s{1,}PipeScript[\s\r\n\}]{0,})
+    )'
+
+    $startPattern = "(?<PSStart>${startComment})"    
+    $endPattern   = "(?<PSEnd>${endComment})"
+
+}