for my $line (@vektor)
{
  if($line=~$seek)
  {
    print $1;
  }
}