detect Copy and Paste of Perl5 Codes