use Encode;

...
from_to($data, "EBCDIC", "ASCII");