chop $directory;

##</code><code>##

$directory =~ s/[^a-zA-Z]+$//;