Roger,

Your code fails to keep 'the-hell' as one word which the original poster stated was a requirement. Also it doesn't answer the original posters question about why qw($a) only leaves then with 'a' after s///.