If you just want to extract the Data block, you could use:

my $str = "Some text1 : Data Some Text2";
$str =~ s/Some text1 : (.*) Some Text2/$1/g;
print "${str}\n";
[download]