Vidul Nikolaev Petrov

 $a  = ("a", "b", "c"); # $a is "c" - the last element
($a) = ("a", "b", "c"); # $a is "a" - the first element

 obj        = ["a", "b", "c"] # obj is Array - ["a", "b", "c"]
 obj, b, c = ["a", "b", "c"] # obj is String - "a"

my_numbers       = [1,2,3,4,5,6]
winning_numbers = [1,2,3,41,42,43]
 
result = 6 - (winning_numbers - my_numbers).size
 
puts "#{result} " +
  if not result.eql? 0
    "hits"
  else
    "hit"
  end

#!/bin/bash
 
file=$1
 
if [ -e $file ]
then
        vim $file
else
        touch $file
        echo '#!/usr/bin/perl' > $file
        echo '' >> $file
        echo 'use strict;' >> $file
        echo 'use warnings;' >> $file
        echo 'use diagnostics;' >> $file
        echo '' >> $file
        chmod +x $file
        vim $file
fi

#!/usr/bin/perl
 
JAPH->Just->Another->Perl->Hacker;
 
package JAPH;
 
sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}

find  ~/Desktop/ -iname "*.pdf" \
  -o -iname "*.chm" \
  -o -iname "*.txt" \
  -o -iname "*.html" \
-exec cp -v {} . \;

cp .irbrc $HOME; irb

require "irb/completion"
 
IRB.conf[:PROMPT_MODE] = :SIMPLE
 
def ri(*arg)
  system("ri #{arg.join" "}")
end
 
class Object
  def __find_method(reg=Regexp.new)
     self.methods.sort.grep reg
  end
 
  alias :fm :__find_method
end

#!/usr/bin/perl
 
use strict;
use warnings;
use HTML::WikiConverter;
use Perl6::Slurp;
 
my $file_name = shift;
 
-f $file_name or die "No file given!\n";
 
my $wiki = new HTML::WikiConverter(dialect=>'MediaWiki');
 
print $wiki->html2wiki(slurp $file_name);
 
__END__
 
  Supported dialects:
 
  DokuWiki
  Kwiki
  MediaWiki
  MoinMoin
  Oddmuse
  PbWiki
  PhpWiki
  PmWiki
  SlipSlap
  TikiWiki
  UseMod
  WakkaWiki
  WikkaWiki