<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Also for historical purposes, this concise perl script will do everything I need to do:<div><br></div><div><div><font class="Apple-style-span" face="'Courier New'">#!/usr/bin/perl</font></div><div><font class="Apple-style-span" face="'Courier New'">use strict;</font></div><div><font class="Apple-style-span" face="'Courier New'">use warnings;</font></div><div><font class="Apple-style-span" face="'Courier New'"><br></font></div><div><font class="Apple-style-span" face="'Courier New'">my $file_contents = join( '', <> );</font></div><div><font class="Apple-style-span" face="'Courier New'">$file_contents =~ s#/\*.*?\*/##gsm;</font></div><div><font class="Apple-style-span" face="'Courier New'">$file_contents =~ s#[^[:ascii:]]##g;</font></div><div><font class="Apple-style-span" face="'Courier New'">$file_contents =~ s/roast/roastqa/g;</font></div><div><font class="Apple-style-span" face="'Courier New'">print $file_contents;</font></div></div><div><br><div><div>On Jul 17, 2008, at 12:38 PM, Stephen R Laniel wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>On Thu, Jul 17, 2008 at 10:43:36AM -0400, Stephen R Laniel wrote:<br><blockquote type="cite">I believe that can actually be reduced<br></blockquote><blockquote type="cite">to this one-liner:<br></blockquote><blockquote type="cite">perl -n -e 's#[^[:ascii:]]##g' /path/to/file<br></blockquote><br>For the historical record: I meant -p<br>rather than -n.<br><br>-- <br>Stephen R. Laniel<br><a href="mailto:steve@laniels.org">steve@laniels.org</a><br>Cell: +(617) 308-5571<br>http://laniels.org/<br>PGP key: http://laniels.org/slaniel.key<br>_______________________________________________<br>Linux-disciples mailing list<br>Linux-disciples@lists.bostoncoop.net<br>http://lists.bostoncoop.net/mailman/listinfo/linux-disciples<br><br></div></blockquote></div><br></div></body></html>