in reply to split split

You can specify multiple delimiters for 'split': 

while (<FH>){
    print +(split /#|\s/)[1];
}

[download]

--
"Language shapes the way we think, and determines what we can think about."
-- B. L. Whorf

In Section Seekers of Perl Wisdom