Re^2: Entering the land of Perl

[manbroski]

That, sir, is a beauty.

Anything functional (in the map-reduce sense) makes me quite happy. You have my thanks.

EDIT: what version is this? 5.16 'use strict' returns all zeros for each count. Does that provide the function return code?

[choroba]

The shift requires the string as an argument of the script. If you want to read it from a file, you have to use

$s = <>;

instead and provide the input file as the argument.