How to pull out every comma, hyphen, underscore, space, and joining remaining words without spaces?

Question

I guess this would be a rather long regular expression, but is there a way to takeout underscores, spaces, commas, and hyphens from a string and then join the words together in perl?

Example:

_Car - Eat, Tree

Becomes:

CarEatTree

Answer 1

You can use a simple substitution:

$string =~ s/[_ ,-]//g;

Answer 2

This can also be done without regular expressions: Transliterate: tr///

use warnings;
use strict;

my $s = '_Car - Eat, Tree';
$s =~ tr/_ ,\-//d;
print "$s\n";

__END__

CarEatTree