Plz help

[The Roopak Times]

Hi All
 As i was continuing with perl i created a program to churn out individual
directory names from a given path in windows.Here is the program:
 #use warnings;
#use strict;
 Print "Enter the path:";
my $dir=<STDIN>;
chomp($dir);
my @DIR=split ///, $dir;
print $DIR[0];
 but it throws an error "Search pattern not terminated"
Plz help.

--
Thankx & Regards

Roopak Kr Prajapat