>JJ57
MKIKLVTVGDAKEEYLIQGINEYLKRLNSYAKRETIEVPDEKAPEKLSDAEMLQVKEKEGEYVFVLAI
NGKQLSSEEFSKEIFQTGISGKSNLTFTTCFSLGLSDSVLQRIMKGEPYHKL
>JJ22
MDQNGASGSHPNRASTRKGAHARERGATVSAMSANRSNIIDEMAKICEADRQTFAIARRTRNESQ
FFGFRTASNKAIEITEAMEKRGAMFLTQSKATDQLNGWQPSDEPDKTSAESEPWFRGKQLSSEEFS
KEIFQTGISGKSNLTFTTCFSLGLSDSVLQRIMKGEPYHKL
>JJ41
MWKTVAPIFAAIFAVGLCGTFRTNTRKGEPTTKCFVFVHDTKARIYQCTFKTWSCPWLNNIVSAQF
QFVTGANYKIVVKLVGELFTETALFNWSSPTTIFTGLGTLITADKTLDCDSNML

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

if(!open(MY_HANDLE, "file.txt")){
    die "Cannot open the file\n";
    }
@content = <MY_HANDLE>;
close(MY_HANDLE);

print("Type the input ID: ");    
my $id = <STDIN>;
chomp($id);
 
foreach $row(@content){
  chomp($row);
     if (@id=$row =~ /([MT].[KA]+)/g)  {
	 $numID=scalar(@id);
     print(“@id,$numID\n”);
     }