my $fus=qq|This Is some Funkah Lookin' & Zmellin' "straeyang"|;

$fus=~s/\W/_/g;
# now $fus equals This_Is_some_Funkah_Lookin____Zmellin_ __straeyang_

#great. super. let's clean that up
$fus=~s/_+/_/g;

# now $fup equals This_Is_some_Funkah_Lookin_Zmellin_straeyang_

#let's get rid of any _ in ends
$fus=~s/^_+|_+$//g;

print $fus; # prints This_Is_some_Funkah_Lookin_Zmellin_straeyang

#maybe im tight and i don't want any uppercase
$fus = lc($fus);

#now $fus = this_is_some_funkah_lookin_zmellin_straeyang
#anyway.. you get the idea