Grabing line from file

[pallabtrue]

Hi my original file looks like this-
>P1;208,D-
208,D-5 - (MOUSE) mouse
DVLMTQTPPSLPVSLGDQASISCRSSQTIVHSDGNTYLEW
YLQKPGQSPKLLIYKVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYYCFQGSHVPPTFGGGTKLEIKR*
VQLLEESGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWFATISDGGSHTYYPDSVKGRFTISRDNAKNNLY
LQMSCLRSEDTAMYYCTRDSLDFYGMDYWGQGTSVTVSS*
>P1;MN14C1
MN14C11.6 - (MOUSE) mouse
DILMTQTPLSLPVSLGDQASISCRSSQSLVHSNGNTYLHW
YLQKPGQSPKLLIYTVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYFCSQSTHLPPTFGGGTKLDIKR*
DVHLLVSGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWVATISDGGAHTYYPDSVKGRFTISRDNAKNNLY
LHMNSLKSEDTAMYYCARDPLEYYGMDYWGQGTAVTV*
>P1;scFv40
scFv40 - (MOUSE) mouse
DVQIIQTTASLSASVGETVTITCRASEHIYSYLAWYQQKQ
GKSPQLLVYSAKTLAEGVPSRFSGSGSGTQFSLKINSLQP
EDFGSYYCQHHYDTPRTFGGGTKLEIRRA*
VDQVQQPGAELVRSGASVKMSCKASGYTFTSYNMHWVKQT
PGQGLEWIGYIYPGNGGTIYNQKFKGKATLTADTSSSTAN
MQISSLTSEDSAVYFCARGDYRNDPFDFWGQGTTLTVSS*

After that I created new file by perl and its looks like this -
>P1|208,D
DVLMTQTPPSLPVSLGDQASISCRSSQTIVHSDGNTYLEW
YLQKPGQSPKLLIYKVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYYCFQGSHVPPTFGGGTKLEIKR*
VQLLEESGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWFATISDGGSHTYYPDSVKGRFTISRDNAKNNLY
LQMSCLRSEDTAMYYCTRDSLDFYGMDYWGQGTSVTVSS*
>P1|MN14C1
DILMTQTPLSLPVSLGDQASISCRSSQSLVHSNGNTYLHW
YLQKPGQSPKLLIYTVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYFCSQSTHLPPTFGGGTKLDIKR*
DVHLLVSGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWVATISDGGAHTYYPDSVKGRFTISRDNAKNNLY
LHMNSLKSEDTAMYYCARDPLEYYGMDYWGQGTAVTV*
>P1|scFv40
DVQIIQTTASLSASVGETVTITCRASEHIYSYLAWYQQKQ
GKSPQLLVYSAKTLAEGVPSRFSGSGSGTQFSLKINSLQP
EDFGSYYCQHHYDTPRTFGGGTKLEIRRA*
VDQVQQPGAELVRSGASVKMSCKASGYTFTSYNMHWVKQT
PGQGLEWIGYIYPGNGGTIYNQKFKGKATLTADTSSSTAN
MQISSLTSEDSAVYFCARGDYRNDPFDFWGQGTTLTVSS*


So want to grab lines in two ways

one is
>P1|208,D
DVLMTQTPPSLPVSLGDQASISCRSSQTIVHSDGNTYLEW
YLQKPGQSPKLLIYKVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYYCFQGSHVPPTFGGGTKLEIKR*


2nd way is
>P1|208,D
*
VQLLEESGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWFATISDGGSHTYYPDSVKGRFTISRDNAKNNLY
LQMSCLRSEDTAMYYCTRDSLDFYGMDYWGQGTSVTVSS*

I was thinking about regular expression but its not working. Anyone can plz help me....

Thanks
Pallab

[toolic]

use warnings;
use strict;
 
my $start;
my $flag = 0;
while (<DATA>) {
    print;
    if (/^>/) {
        $start = $_;
        $flag = 1;
    }
    elsif (/\*/) {
        print "$start*\n" if $flag;
        $flag = 0;
    }
}
 
__DATA__
>P1|208,D
DVLMTQTPPSLPVSLGDQASISCRSSQTIVHSDGNTYLEW
YLQKPGQSPKLLIYKVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYYCFQGSHVPPTFGGGTKLEIKR*
VQLLEESGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWFATISDGGSHTYYPDSVKGRFTISRDNAKNNLY
LQMSCLRSEDTAMYYCTRDSLDFYGMDYWGQGTSVTVSS*
>P1|MN14C1
DILMTQTPLSLPVSLGDQASISCRSSQSLVHSNGNTYLHW
YLQKPGQSPKLLIYTVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYFCSQSTHLPPTFGGGTKLDIKR*
DVHLLVSGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWVATISDGGAHTYYPDSVKGRFTISRDNAKNNLY
LHMNSLKSEDTAMYYCARDPLEYYGMDYWGQGTAVTV*
>P1|scFv40
DVQIIQTTASLSASVGETVTITCRASEHIYSYLAWYQQKQ
GKSPQLLVYSAKTLAEGVPSRFSGSGSGTQFSLKINSLQP
EDFGSYYCQHHYDTPRTFGGGTKLEIRRA*
VDQVQQPGAELVRSGASVKMSCKASGYTFTSYNMHWVKQT
PGQGLEWIGYIYPGNGGTIYNQKFKGKATLTADTSSSTAN
MQISSLTSEDSAVYFCARGDYRNDPFDFWGQGTTLTVSS*

Prints out:

>P1|208,D
DVLMTQTPPSLPVSLGDQASISCRSSQTIVHSDGNTYLEW
YLQKPGQSPKLLIYKVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYYCFQGSHVPPTFGGGTKLEIKR*
>P1|208,D
*
VQLLEESGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWFATISDGGSHTYYPDSVKGRFTISRDNAKNNLY
LQMSCLRSEDTAMYYCTRDSLDFYGMDYWGQGTSVTVSS*
>P1|MN14C1
DILMTQTPLSLPVSLGDQASISCRSSQSLVHSNGNTYLHW
YLQKPGQSPKLLIYTVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYFCSQSTHLPPTFGGGTKLDIKR*
>P1|MN14C1
*
DVHLLVSGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWVATISDGGAHTYYPDSVKGRFTISRDNAKNNLY
LHMNSLKSEDTAMYYCARDPLEYYGMDYWGQGTAVTV*
>P1|scFv40
DVQIIQTTASLSASVGETVTITCRASEHIYSYLAWYQQKQ
GKSPQLLVYSAKTLAEGVPSRFSGSGSGTQFSLKINSLQP
EDFGSYYCQHHYDTPRTFGGGTKLEIRRA*
>P1|scFv40
*
VDQVQQPGAELVRSGASVKMSCKASGYTFTSYNMHWVKQT
PGQGLEWIGYIYPGNGGTIYNQKFKGKATLTADTSSSTAN
MQISSLTSEDSAVYFCARGDYRNDPFDFWGQGTTLTVSS*

[pallabtrue]

@toolic
Thanks for your answer

[pallabtrue]

@toolic
hi
can u plz explain me about function of variable $flag.
and other thing is that if I try to print only

>P1|208,D
DVLMTQTPPSLPVSLGDQASISCRSSQTIVHSDGNTYLEW
YLQKPGQSPKLLIYKVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYYCFQGSHVPPTFGGGTKLEIKR*

>P1|MN14C1
DILMTQTPLSLPVSLGDQASISCRSSQSLVHSNGNTYLHW
YLQKPGQSPKLLIYTVSNRFSGVPDRFSGSGSGTDFTLKI
SRVEAEDLGLYFCSQSTHLPPTFGGGTKLDIKR*

>P1|scFv40
DVQIIQTTASLSASVGETVTITCRASEHIYSYLAWYQQKQ
GKSPQLLVYSAKTLAEGVPSRFSGSGSGTQFSLKINSLQP
EDFGSYYCQHHYDTPRTFGGGTKLEIRRA*


Or only I if I try to printout this format

>P1|208,D
*
VQLLEESGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWFATISDGGSHTYYPDSVKGRFTISRDNAKNNLY
LQMSCLRSEDTAMYYCTRDSLDFYGMDYWGQGTSVTVSS*

>P1|MN14C1
*
DVHLLVSGGGLVKPGGSLKLSCAASGFTFSDYYMFWVRQT
PEKRLEWVATISDGGAHTYYPDSVKGRFTISRDNAKNNLY
LHMNSLKSEDTAMYYCARDPLEYYGMDYWGQGTAVTV*

>P1|scFv40
*
VDQVQQPGAELVRSGASVKMSCKASGYTFTSYNMHWVKQT
PGQGLEWIGYIYPGNGGTIYNQKFKGKATLTADTSSSTAN
MQISSLTSEDSAVYFCARGDYRNDPFDFWGQGTTLTVSS*

so for this one what I have to change in previous programme

Thanks
Pallab

[toolic]

$flag is used as a state variable.
It is set when a line begins with ">".
It is cleared when a line ends with "*".
I admit that it is not the best name for a variable,
but you can change it to be more meaningful for you.

I don't understand the rest of yuor question.

[pallabtrue]

@toolic
Thanks for your feedback.........Actually in every Sequence there are two parts which is divided by *...* so that means
>P1|BD-8
FHFHFJHFJFDJJHFJF
HFJHFJKFJKFJKFJKF*
GFHFHJFJFJFJKFJKF
HJFHJFJFJKFJKFJKF*

So bold is part1 of that sequence and thats lies between > and first *

and 2nd part lies between first * and second *

so my job is to grab part1 of all sequence and print them
and second job is that grab par2 of all sequence and print them with header line.

Thanks
Pallab