validates :title, :presence => true, :length => {:minimum => 5}
# Если в строке бывает ровно три квадратных скобки
/\[(.*)\].*\[(.*)\].*\[(.*)\]/;
($num, $tunnel_from, $tunnel_to)=($1,$2,$3)($num, $tunnel_from, $tunnel_to) = /\[(.+?)\]/g 
#!/usr/bin/perl -w
use strict;
open(F1, "<","test.txt") || die $!;
while(<F1>)
{
chomp;
/^\bValue\b\s+:\s+([A-Z0-9]+)$/g;
next unless $1;
if ($1 eq "A1")
{
print "$_\n" and exit 0;
}
}
close(F1);for my $element (@spisok1) {
$seen{$element} = undef;
}
foreach my $el (@series){
print $el->{'login'};
}