sub contains {
my ($file, $string) = @_;
my $content;
{
local $/;
open my $fh, '<', $file or die $!;
$content = <$fh>;
close $fh or die $!;
}
index( $content, $string) == -1
? 0
: 1;
}
####
return not index( $content, $string) == -1
####
return index( $content, $string) != -1