#!/usr/bin/perl -CSDA 

use utf8; 
use Modern::Perl; 
no warnings qw{uninitialized}; 
use Data::Dumper; 
use Path::Tiny; 


print /CDECGKEFSQGAHLQTHQKVH/
	? "The protein contains the domain\n"
	: "The protein doesn't contain the domain\n"
for path('file,fasta')->lines_utf8();