sub mychomp : getunderscore {
    s[${/}\z][];
}