All pastes #946618 Raw Edit

Someone

public text v1 · immutable
·published 2008-03-17 20:36 UTC
rendered paste body
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";