#!/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]
www.com | www.net | www.org
No recent polls found