while (<PASSWD>) {
	chop;   # avoid \n on last field
	@array = split(/:/);
	...
}

@lines = `cat myfile`;
chop(@lines);

chop($cwd = `pwd`);
chop($answer = <STDIN>);

$answer = chop(<STDIN>);

substr($caravan, -5) = '';
