ltrim($str) => STR¶

 $str =~ s/\A\s+//s;

ltrim_lines($str) => STR¶

 $str =~ s/^\s+//mg;

rtrim($str) => STR¶

 $str =~ s/[ \t]+\z//s;

rtrim_lines($str) => STR¶

 $str =~ s/[ \t]+$//mg;

trim($str) => STR¶

trim_lines($str) => STR¶

trim_blank_lines($str) => STR¶

ellipsis($str[, $maxlen, $ellipsis]) => STR¶

indent($indent, $str, \%opts) => STR¶

 indent('  ', "one\ntwo\nthree") # "  one\n  two\n  three"

%opts is optional. Known options:

•

indent_blank_lines => BOOL (default 1)

If set to false, does not indent blank lines (i.e., lines containing only zero or more whitespaces).

linenum($str, \%opts) => STR¶

     1|line1
     2|line2
      |
     4|line4

Known options:

• width => INT (default: 4)
• zeropad => BOOL (default: 0)

  If turned on, will output something like:

    0001|line1
    0002|line2
        |
    0004|line4
      

• skip_empty => BOOL (default: 1)

  If set to false, keep printing line number even if line is empty:

       1|line1
       2|line2
       3|
       4|line4
      

pad($text, $width[, $which[, $padchar[, $truncate]]]) => STR¶

$padchar is whitespace if not specified. It should be string having the width of 1 column.

qqquote($str) => STR¶

 say qqquote("a");        # => "a"
 say qqquote("a\n");      # => "a\n"
 say qqquote('"');        # => "\""
 say qqquote('$foo');     # => "\$foo"

This code is taken from "quote()" in Data::Dump. Maybe I didn't look more closely, but I couldn't a module that provides a function to do something like this. String::Escape, for example, provides "qqbackslash" but it does not escape "$".

None are exported by default, but they are exportable.