#!/usr/bin/perl

use utf8;
binmode(STDOUT, ":utf8");

$szoveg = "Árnika";

for($i=0; $i < length($szoveg); $i++) {
	print substr($szoveg, $i, 1) . "\n";
}

print "\n";

foreach $kar (split //, $szoveg) {
	print "$kar\n";
}

print "\n";