open (RD, "ls -l /dir1/dir2/dir3/'$b' |");
...
foreach $fileline (@user_dir)
{
@filenames = split(/\s+/,$fileline, 9);