String Perl

$ls = 'dir';
print qx/$ls/;