Perl/Čárové kódy