Normally this is done with a regular expression or possibly index (for the position of the substring 'AS'). See perlretut for further explanation of regular expressions. Once you have read the documentation for index and regular expressions, please make a first attempt on you own. If you still can't get it to work as you want, come back, show us what you have done, and we'll be happy to help you sort it out.

Best, beth