use strict;
use feature ":5.10.1";

# Exemplu de instrucțiune print incorectă!
# print 'Today's "Blue-Plate Special" costs $5.99.';

=pod
print 'Today\'s "Blue-Plate Special" costs $5.99.';
print "\n";
print 'Today\'s "\Blue-Plate Special" costs $5.99.';
print "\n";
#print "Today\'s "\Blue-Plate Special" costs $5.99.";
print "Today\'s \"Blue-Plate Special\" costs \$5.99.\n";
=cut

# Funcția say este valabilă numai de la versiunea 5.10
# Diferența între print și say este aceea că ultima
# adaugă un 'new line' automat în cadrul execuției.
#=pod
say 'Today\'s "Blue-Plate Special" costs $5.99.';
say;
say 'Today\'s "\Blue-Plate Special" costs $5.99.';
say;
#say "Today\'s "\Blue-Plate Special" costs $5.99.";
say "Today\'s \"Blue-Plate Special\" costs \$5.99.";
#=cut

# https://www.perl.com/pub/2008/04/23/a-beginners-introduction-to-perl-510.html/
# https://www.perlmonks.org/?node_id=20519