#!/usr/bin/perl -w use strict; @_ = ; foreach (@_){ my @a = split (" "); foreach (@a){ print chr; } } print @_; __DATA__ 35 33 47 117 115 114 47 98 105 110 47 112 101 114 108 32 45 119 10 117 115 101 32 115 116 114 105 99 116 59 10 64 95 32 61 32 60 68 65 84 65 62 59 10 102 111 114 101 97 99 104 32 40 64 95 41 123 10 9 109 121 32 64 97 32 61 32 115 112 108 105 116 32 40 34 32 34 41 59 10 9 102 111 114 101 97 99 104 32 40 64 97 41 123 10 9 9 112 114 105 110 116 32 99 104 114 59 10 9 125 10 125 10 112 114 105 110 116 32 64 95 59 10 95 95 68 65 84 65 95 95 10