#!/usr/bin/perl
$, = "dad and ";
print "Hi " . "mom!\n";
print "Hi " , "mom!\n";