$ echo $TERM
xterm

$ echo $TERM
xterm-256color

LESS=-R perldoc perlsyn

LESS="$LESS -R" perldoc perlsyn

perldoc perlsyn | less -R

perldoc -t perlsyn

                  $formatter->pager_configuration($pager, $self);

perldoc -D perlsyn

$ perldoc -D perlsyn
Ending switch processing.  Args are [perlsyn] with 0 errors.
Pagers: /usr/bin/sensible-pager, more, less, pg, view, cat/usr/bin/perldoc => Pod::Perldoc v3.28

Formatter class Pod::Perldoc::ToTerm version 3.28 successfully loaded!
Will format with the class Pod::Perldoc::ToTerm
Searching for perlsyn
Looking for perlsyn in /usr/bin /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.26.0 /usr/local/share/perl/5.26.0 /usr/lib/x86_64-linux-gnu/perl5/5.26 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.26 /usr/share/perl/5.26 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu…

PAGER=less perldoc perlsyn

$ echo $TERM
xterm

$ echo $TERM
xterm-256color

This bug affects my Lubuntu 17.10 (64-bit) system, which has version 5.26.0-8ubuntu1 of the perl and perl-doc packages. I noticed the bug immediately upon checking for it after Zanna (launchpad.net/~rose-anna-bleasdale / askubuntu.com/users/527764/zanna) reported experiencing it in Ubuntu MATE 17.10. Until this bug is fixed, I suggest the workaround of setting the PAGER environment variable to "less" so that the proper configuration for less is used; other full workarounds are also effective (see below).

            last if system("$pager \"$output\"") == 0;

"$pager \"$output\""

qq{$pager "$output"}

   LINE:
     while (<>) {
         ...             # your program goes here
     }

   LINE:
     while (<>) {
         ...             # your program goes here
     } continue {
         print or die "-p destination: $!\n";
     }

#!/usr/bin/env perl

use strict;
use warnings;

local $| = 1;

OWL:
for my $owl (qw(Snowy Barn Short-eared)) {
    GAME:
    for my $game (qw(Chess Checkers Monopoly Scrabble)) {
        print "$owl owl $game!\n> ";
        my $command = <>;
        eval $command;
        print "You and the $owl owl have completed a game of $game.\n";
    } continue {
        print "The $owl owl is done playing $game.\n";
    }
} continue {
    print "The $owl owl has flown away.\n";
}

next GAME   # skips to the continue block of the inner loop
next        # same
next OWL    # skips to the continue block of the outer loop
last GAME   # runs the continue block of the inner loop, then leaves that loop
last        # same
last OWL    # runs the continue block of the outer loop, then leaves that loop

            The "goto LABEL" form finds the statement labeled with LABEL and
            resumes execution there. It can't be used to get out of a block or
            subroutine given to "sort". It can be used to go almost anywhere
            else within the dynamic scope, including out of subroutines, but
            it's usually better to use some other construct such as "last" or
            "die". The author of Perl has never felt the need to use this form
            of "goto" (in Perl, that is; C is another matter). (The difference

next GAME   # skips to the continue block of the inner loop
next        # same
next OWL    # skips to the continue block of the outer loop
last GAME   # leaves the inner loop
last        # same
last OWL    # leaves the outer loop
redo GAME   # goes back to the beginning of the inner loop's current iteration
redo        # same
redo OWL    # goes back to the beginning of the outer loop's current iteration

#!/usr/bin/env perl

use strict;
use warnings;
use Math::BigInt;

# This is a demonstration. There is no actual need to implement exponentation
# for BigInt, because ** supports it. This technique is often useful, though,
# as it works for implementing exponentiation one one's own data types. For
# example, this algorithm is commonly used to implement the operation of
# raising a square matrix to a power, when one has implemented matrix
# multiplication.
sub pow {
    my ($base, $expt) = @_;
    $expt >= 0 or die "negative exponents are not supported\n";

#!/usr/bin/env perl

use strict;
use warnings;
use Math::BigInt;

# This is a demonstration. There is no actual need to implement exponentation
# for BigInt, because ** supports it. This technique is often useful, though,
# as it works for implementing exponentiation one one's own data types. For
# example, this algorithm is commonly used to implement the operation of
# raising a square matrix to a power, when one has implemented matrix
# multiplication.
sub pow {
    my ($base, $expt) = @_;
    $expt >= 0 or die "negative exponents are not supported\n";