choroba

$_=q!print'$_=q*'.$_.'*;';s/\52/\41/g;print!;print'$_=q!'.$_.'!;';s/\52/\41/g;print

choroba

#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 3;

{   my @list;

    sub init {
        my %elem;

choroba

#!/usr/bin/perl
use warnings;
use strict;

use Benchmark qw(cmpthese);
use Test::More;

my $String = "ATGC" x 1000;
my @Genes = qw(A T G C);
my %Count;

choroba

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use HTML::TableExtract;
use Time::Piece;
use XML::XSH2;

sub shell {

choroba

(tool-bar-mode 0)
(menu-bar-mode 0)
(setq inhibit-splash-screen t)

(setq text-mode-hook 'turn-on-auto-fill)

(auto-compression-mode t)

(setq next-line-add-newlines t)
(setq truncate-partial-width-windows nil)

choroba

#!/usr/bin/perl
use warnings;
use strict;

use Carp qw{ confess };
use List::Util qw{ shuffle };
use Test::More tests => 5;
use Benchmark qw{ cmpthese };

my @ATTRS;

choroba

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Time::Piece;

open my $GIT, '-|', qw{ git log --name-status --reverse };

my $date;

choroba

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $coef = 0.75;

my %shape = (
    1 => { z => { c => 'bbbw', s => '0001' },
           b => { c => 'bbwb', s => '0010' },

choroba

#!/usr/bin/perl
use strict;
use feature qw{ say };
use warnings;

{   package My;
    use Moose;

    my $m = 1;

choroba

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Digest::MD5 qw{ md5_hex };

say 'Same' if md5_hex('240610708') == md5_hex('QNKCDZO');
say for md5_hex('240610708'), md5_hex('QNKCDZO');