in reply to split split

Pretty close. I think you want:

(split /#/)[0]
--

See the Copyright notice on my home node.

Perl training courses