Wow... a couple bad typos in that comment; I'm surprised I even got any upvotes. Some corrections:

  s/working or someone else/working for someone else/;
  s/like I was getting all I/like I wasn't getting all I/;

p.s. I don't typically use Perl, but it definitely has its uses, and quick and dirty text replacements are certainly one of them.