Select Code to Download

  while ( s{ ^ (.*?)
               (\s* \S+)_DEL
               (.*) $ }
           {$1$3\n$1$2$3}xmg )
  {}

sub del_selective
{
...
        return ( $n );
    }
}