#!/usr/bin/perl -w local $\ = "\n"; while (<>) { chomp; $_ && print $_>0 ? "positive $_" : "negative ".($_*-1); } [download]
#Remove those pesky ^M (note the ^V will not be visible) perl -pi -e 's/^V^M//g' <filename> [download]
http://www.perlmonks.org/index.pl?node_id=138068&lastnode_id=137863 [download]
An Englishman in New York An American Werewolf in London An American in Paris The Innocents Abroad An Idiot Abroad Robinson Crusoe on Mars A Connecticut_Yankee in King Arthur's Court There and Back Again Travels into Several Remote Nations of the World
Results (88 votes). Check out past polls.