[EMAIL PROTECTED] wrote:
The following Perl one-liner will do what you need
perl -n -e 's/(.{8,8}).(.*)/$1$2/;print ;'
Or more simply as:
perl -pe's/^(.{8})./$1/'
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
