It looks like the problem you're having is the $o in your string; it is trying to substitute in the value of the variable $o.  Try escaping the '$' and the '@' with:  D3E' C\@\$o*r(-A[].Mick.

By the way, if you had used:

use strict;
use warnings;
[download]

at the top of your program, it would have warned you of the fact that $o was undefined.