my $s = '\\033[0;31m' . 'some text' . '\\033[0;31m';
$s = eval qq("$s");

print $s;