#!/usr/bin/perl $out = ($ARGV[0])?$ARGV[0]:"man.txt"; open (OUT, ">$out"); while(){ s/(((.)[\b]){1})//g; s/_[\b]//g; s/o[\b]\+/o/; print OUT $_; } close OUT;