I've been coding in perl for 5 years, and I had no idea Perl had bitwise string operators until now. Damn....