in reply to Removing some part of string

Your post does not contain Short, Self Contained, Correct Example

So read perlintro and How do I post a question effectively? and adjust your post accordingly

Replies are listed 'Best First'.
Re^2: Removing some part of string
by pvaldes (Chaplain) on Oct 18, 2011 at 15:09 UTC
     while ($line){$_ =~ s/[ADFJMNOS][[:lower:]]{2}\.\s[0-3]{1,2}-\d{1,2}$//;}
[reply]
[d/l]

In Section Seekers of Perl Wisdom