[SLUG] ask perl

[henry]

Dear List:       I want to print the first 5 characters in front of a definite word as follows: It's supposed that the definite word is AU. INPUT       -->aassewrab cdAUwst OUTPUT(I hope to get )  - ->ab cd   Could you give some hint ?     BestRegards' Henry