#!/usr/bin/perl

 open SOUBOR, 'seznam.txt' or die "Nelze otevřít soubor seznam.txt \n";

 while (<SOUBOR>) {
  
  ($jmeno, $prijmeni, $login) = split /:/;
  print "Uživatel $jmeno $prijmeni má login $login \n";
 }

 close SOUBOR;