#!/usr/local/bin/perl

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

$string = "camels";

$x = chop $string;

print qq($x $string);