#!/usr/local/bin/perl

# new line at the end of each print, automatically
$\ = "\n";

($x,$y,$z,$s) = ("baby","is","crying"," ");

print join($s,$x,$y,$z);

$x = (babies);

print $x;