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