# get into the habit of using these.
# they will save you a lot of headaches.
use strict;
use warnings;

my $title = "/Text_Files/Cake_Rec.txt";
my @tokens = split /[\/_\.]/, $title;

foreach (@tokens) {
	print "$_\n";
}