Rather than pre tags, use code tags and perlmonks will handle the formatting for you. Plus, your square brackets won't eat code and people could single-click download it.

--
$you = new YOU;
honk() if $you->love(perl)