>>783
use URI::Escape;

$本文 =~ s/(その正規表現)/uri_escape($1)/ge;

てな感じでいいはず