my $title= '/Text_Files/Cake_Rec.txt';
($title) = ($title =~ m|([^/]*)\.|);
$title =~ tr/_/ /;
print $title;