say      'Cwm fjordbank glyphs vext quiz.';
    #:Cwm fjordbank glyphs vext quiz.

##</code><code>##

say      'a\'b\'c';
    #:a'b'c        
say     q|a'b'c|;
    #:a'b'c

##</code><code>##

say    '\a';
    #:\a
say    '\\';
    #:\
say   q|\a|;
    #:\a
say   q|\\|;
    #:\

##</code><code>##

say     q|a'b'c|;   # ||
say     q(a'b'c);   # ()
say     q[a'b'c];   # []
say     q<a'b'c>;   # <>
say     q/a'b'c/;   # //
say     q*a'b'c*;   # **
    #:a'b'c

##</code><code>##

say     '';     # empty string?
say     q||;    # clearer
say     ' ';    # single space?
say     q| |;   # clearer

##</code><code>##

my $foo     = 'bar';
say     "a-$foo-b";
    #:a-bar-b

##</code><code>##

say     qq|This\t('"')\tis a double-quote.|;
    #:This	('"')	is a double-quote.

##</code><code>##

\t              tab
\n              newline
\r              carriage return
\b              backspace

say     qq|a-\t-b-\n-c|;
    #:a-	-b-
    #:-c

##</code><code>##

say     <<'HERE';
say qq|This\t('"')\tis a double-quote.|;
# my $string      = '\a\s\b';
HERE
    #:say qq|This\t('"')\tis a double-quote.|;
    #:# my $string      = '\a\s\b';
    #:

##</code><code>##

my @ary     = ( 'Cwm', 'fjordbank', 'glyphs', 'vext', 'quiz' );
my @ary     = qw| Cwm fjordbank glyphs vext quiz |;

##</code><code>##

my $regex       = 'a|b|c';
my $string      = 'xxbxx';
if ( $string =~ /$regex/ ) { say 'TRUE' } else { say 'FALSE' };
    #:TRUE

##</code><code>##

my $regex       = qr/a|b|c/;
my $string      = 'xxbxx';
if ( $string =~ /$regex/ ) { say 'TRUE' } else { say 'FALSE' };
    #:TRUE

##</code><code>##

my $regex       = '\s';
my $string      = '\a\s\b';
if ( $string =~ /$regex/ ) { say 'TRUE' } else { say 'FALSE' };
    #:FALSE
$regex          = quotemeta $regex;
if ( $string =~ /$regex/ ) { say 'TRUE' } else { say 'FALSE' };
    #:TRUE

##</code><code>##

say     `date`;
say     qx|date|;
    #:Thu Dec 15 01:19:30 PST 2011