in reply to Multiple foreach loops in single statement

use strict;
print join "",map { ord $_ } map{split(//,$_)}  `cat file.pl`;

___________________
$ perl file.pl 
1171151013211511611410599116591011211410511011632106111105110323434441
+099711232123321111141003236953212532109971121231151121081051164047474
+436954112532329699971163210210510810146112108965910

[download]
Something like that?

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

In Section Seekers of Perl Wisdom