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

my $a=">sample1 ..sequence
ATGC fun
>sample2 ..sequence
ATGC fun
>sample3 ..sequence
CCGG fun
>sample4 ..sequence
CCGG fun"; 

 while ($a=~ />.*?fun/gs) {my $trial1=$&; my $trial2=$&;     

    while ($trial1=~ />.*sequence/gs) {my $header=$&;  
           $trial2=~ s/($header)//gs; 
           my $seq=$trial2; 
           $seq=~ s/\s//;
           $seq=~ s/fun//;   

    print "\n Header: $header
 Sequence: $seq\n"; 
    } 
 } 
# code?? 
exit;