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


print qq{I said "They're the most delicious fruits!".\n};
print q/I said "They're the most delicious fruits!"./ . "\n";


print <<OUTPUT
I said "They're the most delicious fruits!".
OUTPUT
;

my $one = 'mangoes';

print "I like $one.\n";
print 'I like $one.' . "\n";
print qq/I love $one.\n/;
print q#I love $one.# . "\n";

print <<OUT
I <3 $one
OUT
;

print <<'OUT'
I <3 $one
OUT
;


1;
__END__