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

##</code><code>##

my $c='\|';

##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print