$title =~ s/^\s+|\s+$//g;
$title =~ s/\s+/-/g;
$title =~ tr/`!"'$%^&*()-+={}[]<>;:@#~,.\/?|//;
$title =~ tr/\r\n\t\\//; # delete them also
$title =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/;
Ok?
$title =~ s/\s+/-/g;
$title =~ tr/`!"'$%^&*()-+={}[]<>;:@#~,.\/?|//;
$title =~ tr/\r\n\t\\//; # delete them also
$title =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/;
Ok?