$delim = '!@#$';
# Test for both the 'tag' and the '/tag' varsion
$delim .= chr(rand(95) + 33) while $data =~ m{/?$delim}s;