Select Code to Download

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

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

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

say     q|a'b'c|;   # ||
say     q(a'b'c);   # ()
...
say     q/a'b'c/;   # //
say     q*a'b'c*;   # **
    #:a'b'c

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

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

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

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

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

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

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

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

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

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