How do I delete everything after a certain characters in Perl?

I need to delete everything that comes after certain characters, with exception to the new line, in my code.

In other words, if my special character was '{' and my code read

Eating Food {feat. john kong} (Remix)

After deletion, it would now read

Eating Food

Now here comes the tough part. I need to do this with multiple characters, being:
( / \ [ ^ - ~ _ " * '

So if I had multiple lines of code:

Eating Food *feat. john kong* (Remix)
Eating Food (feat. john kong) (Remix)
Eating Food ~feat. john kong~ (Remix)
Eating Food _feat. john kong_ (Remix)
Eating Food 'feat. john kong' (Remix)
Eating Food "feat. john kong" (Remix)
etc..

After deletion would print out the same thing as the first deletion.

I tried
$line =~ s/[(/\[^-~_"*'].*$//;
but I keep getting an invalid [] range error

Is it possible to do this in one line of code?