in reply to Re^2: Entering the land of Perl
in thread Entering the land of Perl

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.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ