prt1|als28.1 prt3|als53.1 prt2|als550.1 prt1|bls9.2 prt2|als7.2 prt2|bls0.2
    prt2|als872.1 prt1|bls871.1    prt2|als6.2    prt4|als22.1 prt2|bls43.2

prt1|als28.1 prt3|als53.1; prt1|als28.1 prt2|als550.1; prt1|als28.1 prt2|als7.2; prt1|als28.1 prt2|bls0.2; prt1|bls9.2 prt3|als53.1; prt1|bls9.2 prt2|als550.1; prt1|bls9.2 prt2|als7.2; prt1|bls9.2 prt2|bls0.2

prt1|als28.1 prt1|bls9.2

    prt1|als28.1 prt3|als53.1
    prt1|als28.1 prt2|als550.1
    prt1|als28.1 prt2|als7.2
    prt1|als28.1 prt2|bls0.2
    prt1|bls9.2 prt3|als53.1
    prt1|bls9.2 prt2|als550.1
    prt1|bls9.2 prt2|als7.2
    prt1|bls9.2 prt2|bls0.2

    prt1|bls871.1 prt2|als872.1
    prt1|bls871.1 prt2|als6.2
    prt1|bls871.1 prt4|als22.1
    prt1|bls871.1 prt2|bls43.2

    #!/usr/bin/perl
    use strict;
    use warnings;
    open F1,$ARGV[0] or die "\n can not open file $ARGV[0]\n";
    my $pattern1 = $ARGV[1];
    my $otherpattern = $ARGV[2];
    while (my $line=<F1>) 
    {
        if ($line=~/ ($querypattern\S+)/i) { print $1; }
        {
            if ($line=~/  ($otherpattern\S+)/i)
            {
                print "\t".$1."\n";
            }
            else
            {
                if ($line=~ m/\bNo pairs found\b/g)
                {
                    print "\t".$line;
                    print "\t"."No pairs Found"."\n";