use strict;
my $a='hello|world';
my $c='|';
my @letras = split /$c/,$a;
for (@letras)	{
	print "[$_]";
}