14/07/15 00:05:14.52 oilFkHfS
>>19
#!/usr/bin/perl -w ##################################################
use IO::File; ###################################################################
my $text = IO::File->new(__FILE__, O_RDONLY); ######################
foreach ($text->getlines()) { ######################################
print chr length; #############################################
} ############################################################################
$text->close(); ############################################################