$VAR1 = 'www.youtube.com/watch?v=mark';

##</code><code>##

$Data::Dumper::Useqq = 1;

##</code><code>##

$VAR1 = "w\0w\0w\0.\0y\0o\0u\0t\0u\0b\0e\0.\0c\0o\0m\0/\0w\0a\0t\0c\0h\0?\0v\0=\0m\0a\0r\0k\0";

##</code><code>##

use Encode;
$link = decode('utf-16-le', $link);