perl -MFile::Find::Rule -pi -e'BEGIN { @ARGV = File::Find::Rule->name( "*.txt" )->in( "." ) } s/find/replace/'