23:21 >perl -wE "$f = 'xyz20130101Customer100.imp'; $f =~ s/^(\D*)\d+/$1/; say $f;" xyzCustomer100.imp 23:22 >