Бегом марш!

Из двух вариантов, одинаковых по сложности написания, надо выбирать тот, что шустрее работает. В перле скорость выполнение можно замерить средствами модуля Benchmark. Пробуем:

#!/usr/bin/perl -w
use strict;

use Benchmark qw(:all);

my $long = 'c_documents_and_settings_administrator_moi_dukumenty_files_very_very_very_long_name.doc';
my $short;

cmpthese(1e6, {
	'regexp' => sub { $short = $1 if ($long =~ /(.{1,25})$/); },
	'substr' => sub { $short = substr $long, -25 },
});

Получаем:

            Rate regexp substr
regexp  315271/s     --   -77%
substr 1361702/s   332%     --

То есть, получение хвоста строки функцией substr осуществляется в 3 раза быстрее, чем регулярными выражениями.

scalar($array_ref)

Пробуем выполнить scalar($array_ref), где $array_ref — ссылка на массив:

#!/usr/bin/perl -w
use strict;
$\ = "\n";
$, = ': ';

my @array = qw(one two three);
my $array_ref = \@array;

print 'scalar @$array_ref', scalar @$array_ref;
print 'scalar  $array_ref', scalar  $array_ref;

Получаем:

scalar @$array_ref: 3
scalar  $array_ref: ARRAY(0x804db74)

Хотя всё в man prelref написано...

Праграмыраванье

Программирую, ошибаясь раскладкой. Получается то ызус, то ыуда.