use File::Remove qw(remove);
remove \1, "dir";