#! /usr/bin/perl

use strict;
use warnings;
use Regexp::Assemble;

my @urls = qw(
  http://www.youtube.com/user/test1
  http://www.youtube.com/user/test2
  http://www.youtube.com/user/test3
  http://www.youtube.com/user/test4
  http://www.youtube.com/user/test5 );
my $r = Regexp::Assemble->new;

for (@urls) {
  $r->add( quotemeta );
}

print $r->re, $/;

__END__