Select Code to Download

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