#!/usr/bin/env perl
use 5.012;
my @fields = qw( name description other_name etc );
...

#!/usr/bin/env perl
use 5.012;
my @fields = qw( name description other_name etc );
...

#!/usr/bin/env perl
use 5.012;
my @fields = qw( name description other_name etc );
...

#!/usr/bin/env perl
use 5.012;
my @fields = qw( name description other_name etc );
...

#!/usr/bin/env perl                                                                                               
use strict;
use warnings FATAL => 'all';
...

aaaa1111

use strict;
use warnings;
use 5.010;
...

C:\Documents and Settings\Santa\Mis documentos\Smtp>perl scan.pl

Arcane

sub parse_decimal {
    my $input = shift;
    my $output = parse_grouping($input, ",", "."); # parse as 12,345,678.90
...

use strict;
use warnings;
use Test::More;
...

my $end = do {
    my $month_ago = DateTime->now->subtract( months => 1 );
    sprintf '%02d%02d', substr( $month_ago->year, -2 ), $month_ago->month;
...

File.open('/usr/local/teste/xml-cvs/ssp.xml').readlines.join.to_s.scan(/\>(.*)\</).uniq.sort.each {|dados| puts "#{dados};#{ File.open('/usr/local/teste/xml-cvs/ssp.xml').readlines.join.to_s.scan(/\>(.*)\</).count(dados)}"}

@a{<>}.=print%a

@a{<>}.=print keys%a

@a{<>}.=print keys%a

perl -we '@a{<>} = 1; print keys %a'

sub parse_decimal {
    (my $input = shift) =~ s/[^\d,\.]//g;
    my %o = (','=>'.','.'=>',');
...

#!/usr/bin/perl

use strict;
...