in reply to split trying to look for /

Another option is to escape your '/' in the code.
@date = split(/\//, @date);
It's a classic mistake to forget that certain characters need to be escaped so that Perl will take them literally.