First commit of partial RosettaCode contents.

Pushing this for testing purposes. Lots of work still needed.

Task/FizzBuzz/Perl/fizzbuzz-2.pl

@@ -0,0 +1 @@
+print 'Fizz'x!($_ % 3) . 'Buzz'x!($_ % 5) || $_, "\n" for 1 .. 100;

Task/FizzBuzz/Perl/fizzbuzz-3.pl

@@ -0,0 +1 @@
+print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..1e2

Task/FizzBuzz/Perl/fizzbuzz-4.pl

@@ -0,0 +1 @@
+map((Fizz)[$_%3].(Buzz)[$_%5]||$_,1..100);

Task/FizzBuzz/Perl/fizzbuzz.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use feature qw/say/;
+
+foreach my $i (1 .. 100) {
+    say + (0 == $i % 15) ? "FizzBuzz"
+        : (0 == $i % 3) ? "Fizz"
+        : (0 == $i % 5) ? "Buzz"
+        : $i
+        ;
+}