package II8b55f24974af3d53369c3d9cea404f55::filters::stutter; use strict; sub stutter { my $v = shift; my $nv = sprintf("%.03u", $v); sprintf "%.1s/%.1s/%.1s/%s", substr($nv, 0, 1), substr($nv, 1, 1), substr($nv, 2, 1), $v; } 1; 