in reply to undef and "x" operator

If you just want to last item, you could use 
my $hic = (split(/\*/))[-1];

[download]

In Section Seekers of Perl Wisdom