Convert::Recode is a front end to the GNU recode program. It will build a perl tr/// function based on the mapping tables that recode knows about.
use Convert::Recode qw(ebcdic_to_ascii); while (<>) {
print ebcdic_to_ascii($_);
}
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.