http://qs321.pair.com?node_id=361092

Public Scratchpad

Download, Select Code To D/L

---

#!/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]