$title =~ s/ /_/g; # Replace empty spaces with underscores (Globally) $title =~ s/\(/_/g; # Replace open bracket with underscores (Globally) $title =~ s/\)/_/g; # Replace closing bracket with underscores (Globally) $title =~ s/-/_/g; # Replace hypens with underscores (Globally) $title =~ s/__/_/g; # Replace double hypens with underscores (GlobalEl-