use strict; print map { chr ord($_) - 5 } ('K', 't', 's', 'f'); print "\n";