#!/usr/bin/perl

$what = "brontosaurus steak";
$n = 3;
print "fred ate $n $whats.\n";                  # not the steaks, but the value of $what
print "fred ate $n ${what}s.\n;                 # now uses $what
print "fred ate $n $what " . "s.\n";            # another way to do it
print 'fred ate ' . $n . ' ' . $what . "s.\n";  # an especially difficult way