##
temp/ $ rpm2cpio perl-base-5.8.8-75.i586.rpm | cpio -idmv '*i586-linux*' './usr/bin/perl'
temp/ $ rpm2cpio perl-5.8.8-75.i586.rpm | cpio -idmv '*i586-linux*'
####
temp/ $ mv usr/bin/perl usr/bin/perl32
####
temp/ $ cp -af usr/ /