if ($_=~ /(\012\015)/){

       local $prev = $`;
       local $nxt = $';

       s/$prev//g;
       s/$next//g;
 
    }