I myself have been guilty in my first few weeks of Perl of doing stuff like:

if (condition) {} 
   else { &actually_do_something() }
[download]

I did figure out I ought to have done !condition the next day, though it also took me about a year to start getting comfortable with more idiomatic ways to express this:

&actually_do_something unless condition;
[download]

Most of us have code from very early on in our learning cycles to qualify as pretty funny if not horrible. I'm pretty sure some of my code fitting these categories is still used in production settings, as well...

I shudder to think what more experienced Perl developers think/say when they come across it. It embarrasses me.