Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
use strict;
...
    $data =~ s/\n//g;
    say "Found in $header" if -1 != index $data, 'CDECGKEFSQGAHLQTHQKV
+H';
}