D:\>perl -CO -Mcharnames=:full -wE "$MAX = 4; $cafe = qq/cafe\N{COMBINING ACUTE ACCENT}/; say $cafe; substr($cafe, $MAX) = ''; say $cafe;" > cafe.txt

D:\>