#!/bin/bash
# 2000.09.12 altblue
##
find2perl . -eval 'my $o = $_; s/^\d+\.//; -e or rename $o, $_' | perl