in reply to print number of characters after specific character

$/=\17;
print $_,"\n" while <DATA>;

[download]
However, I do not quite understand what you mean

In Section Seekers of Perl Wisdom