$foo =~ s/</&lt;/g;