#!/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]
Eureka! Give me a lever long enough ... Eppur si muove Mr. Watson – Come here – I want you Mary had a little lamb That's one small step for a man ... SCE to AUX I think I'll stop here
Results (177 votes). Check out past polls.