multiline extraction

use 5.010;
use Data::Dumper;

my %hash;

while( my $line = <DATA> ) {
	chomp $line;

	given ( $line ) {
		chomp $line;
		when( /<start>/ ) {
			my $string;
			until( (my $l = <DATA>) =~ /<end>/ ) { $string .= $l }
			$hash{multiline} = $string;
			}
		when( /(.*?):(.*)/ ) { 
			$hash{$1} = $2;
			}
		}
	}

print Dumper( \%hash );

__DATA__
Field 1 :  data 1
Field 2 :  data 2
Field 3 :  data 3
Field 4 : 
<start>
...

..

<end>
field 5  : data 5