Select Code to Download

use strict;

...
    $line =~ s/data|=|detector//g;
    return $line;
}

xyzzy
data abc
detector = data
hooplah =
enddata

C:\>perl a.pl test.txt > out.txt

xyzzy abc  hooplah end