http://www.perlmonks.org?node_id=932170


in reply to Re: Removing some part of string
in thread Removing some part of string

 while ($line){$_ =~ s/[ADFJMNOS][[:lower:]]{2}\.\s[0-3]{1,2}-\d{1,2}$//;}

In Section Seekers of Perl Wisdom