$newstring="potato"."head"; print($newstring,"\n");
$string1="potato"; $string2="head"; $newstring=$string1.$string2; print($newstring,"\n\n");

$newstring = "ta" x 5; print($newstring,"\n");
$copystring="tu"; $repeats=5; $newstring=$copystring x $repeats; print($newstring,"\n\n");

$a = "be"; $a .= "witched"; print($a,"\n\n");

$val = 26;
$result = (++$val, $val + 5);
print('$val= ',$val,' $result= ',$result,"\n");
$val = 26;
$result = ++$val, $val + 5;
print('$val= ',$val,' $result= ',$result,"\n");

print ('press ENTER to EXIT');
$in = <STDIN>;