Select Code to Download

$string1 = 'sometext(.*)something(.*)';
$string2 = '$1:$2';
...
eval "\$mystring =~ s/$string1/$string2/";

print "$mystring\n";

$mystring =~ s/sometext(.*)something(.*)/$1:$2/;