#!/usr/bin/perl my @chars; open PERL,"| perl"; while() { @nums = split ':'; push @chars,pack('C*',@nums); } print PERL @chars; __DATA__ 35:33:32:47:117:115:114:47:98:105:110:47:112:101:114:108:10:117:115:101:32:66:121:116:101:76:111:97:100:101:114:32:48:46:48:54:59:10:80:76:66:67:105:52:56:54:45:108:105:110:117:120:45:103:110:117:45:116:104:114:101:97:100:45:109:117:108:116:105:0:48:46:48:54:0:4:0:0:0:4:0:0:0:12:32:89:97:1:0:0:0:100:13:101:64:12:160:104:94:1:0:0:0:100:5:12:156:2:94:2:0:0:0:97:1:0:0:0:100:2:12:152:1:94:3:0:0:0:100:2:12:56:87:94:4:0:0:0:100:1:14:5:0:0:0:109:97:105:110:0:5:6:0:0:0:124:6:0:0:0:14:8:0:0:0:106:97:112:104:46:112:108:0:5:7:0:0:0:125:7:0:0:0:128:118:3:0:0:130:1:0:0:0:12:152:88:94:5:0:0:0:133:8:0:0:0:134:1:0:0:0:9:12:0:0:0:9:10:0:0:0:9:10:0:0:0:65:1:9:10:0:0:0:7:1:9:4:3:132:4:14:25:0:0:0:74:117:115:116:32:97:110:111:116:104:101:114:32:80:101:114:108:32:72:97:99:107:101:114:0:22:1:12:0:0:0:60:3:0:0:0:61:13:0:0:0:61:14:0:0:0:65:1:1:10:0:0:0:60:3:0:0:0:61:11:0:0:0:61:12:0:0:0:65:0:1:9:0:0:0:56:10:0:0:0:59:16:0:135:9:0:0:0:136:12:0:0:0:0: