c:\@Work\Perl>perl -wMstrict -le
"my @array = ('acuser', 'sync_cmd', '2015-01-13');
 my $rx = qr/\Q@array/;
 print $rx;
"
(?^:acuser\ sync_cmd\ 2015\-01\-13)