> 
> This should do what you want:
> 
> perl -pe's/(?<=[[:alpha:]])\d+//g' <filename>

As per required ouput your one-line is showing to me as,

# perl -pe 's/(?<=[[:alpha:]])\d+//g' test.log
This23
is
a
45
good
thing

# try this one.
#  perl -pe 's/\d+//g if /^\D+/;' test.log
This
is
a
45
good
thing

-Muthu

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to