chop $str;
reverse $str;
chop $str;
reverse $str;

##</code><code>##

chop $default_title while (length $default_title > 50);