#!/usr/bin/perl
use strict;
use warnings;

# double quote delimited string
print qq!\n\n!;

# single quote delimited string
print q/I want to print some single quote characters ''''''''''''''''''''/;

# double quote delimited string
print qq/\none q is single quotes, qq is double quotes\n/;

# double quote delimited string
print qq@any non-alphanumeric character can be substituted for the / character as a delimiter\n@;

# back ticks can be replaced with qx quote construct
my $DATE = qx/date/;

# double quote delimited string
print qq/$DATE/;

# creates a quoted word list
my @animals = qw(aligator bat cat dog elephant frog gorilla);

# print the animals
foreach $a (@animals)
{
  print qq/$a /;
}

# double quote delimited string
print qq!\n\n!;