#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature 'say';

my $newLineChar = "\n";
my $tabChar = "\t";
my $carriageReturnChar = "\r";
my $formfeedCharacter = "\f";
my $backspaceCharacter = "\b";
my $bellOrBeepCharacter = "\a";
my $escapeCharacter = "\e";

$Data::Dumper::Terse = 1;
$Data::Dumper::Useqq = 1;

my $testString = join "",
    $newLineChar,
    $tabChar,
    $carriageReturnChar,
    $formfeedCharacter,
    $backspaceCharacter,
    $bellOrBeepCharacter,
    $escapeCharacter;

say $testString;
say Data::Dumper::qquote($testString);