use strict;
use warnings;

my $data = "14-(08 TV 14)-4 14 Hotel 2007 Babylon S02E05 WS DVDRip XviD RiVER 144 14-(15 10F / 1MB 14)-";

$data =~ s/([^a-zA-Z0-9_ ])//g;

#print $_ . "\n";
$data =~ s/([0-9 ]*)TV([0-9 ]*)([a-zA-Z0-9 \-_]*) ([0-9 ]*) (.*?) ([0-9 ]*)/$3/g;
print $data . "\n";