#!/usr/local/bin/perl -i.bak ||$out = 'out';|$in = 'test';||open(R,"<$in");|open(W,">$out");||while($line = <R>) {|chomp($line);|print W "$line";|}||