Downloads subtitles for scene releases from addic7ed.com, requires curl & lwp::simple
./subs.pl Anger.Management.S01E04.PROPER.720p.HDTV.x264-2HD #!/usr/bin/perl
# ./subs.pl Anger.Management.S01E04.PROPER.720p.HDTV.x264-2HD
use LWP::Simple;

if ( $#ARGV < 0 ) { print "usage: $0 <release> \n"; exit; }
$rls = @ARGV[0]; $orig = $rls;

@del = ("readnfo","repack","proper","extended","theatrical","limited","dc","rerip","dubbed","docu","unrated","festival","ac3","720p","1080p");
foreach (@del) { $rls =~ s/\.$_//i; }

if ($rls =~ /(.*)\.S([0-9]+)E([0-9]+)\./i) {
$show = $1; $season = $2; $episode = $3; $show =~ s/\./ /g;
tv("$show","$season","$episode");
} elsif ($rls =~ /(.*)\.([0-9]+)x([0-9]+)\./) {
$show = $1; $season = $2; $episode = $3; $show =~ s/\./ /g;
tv("$show","$season","$episode");
}

print "\n";

sub tv {
$show = $_[0]; $show =~ s/ /_/g;
@url = split("\n", get("http://www.addic7ed.com/serie/$show/$_[1]/$_[2]/x"));
foreach (@url) {
if ($_ =~ /English&nbsp;.*saveFavorite\(([0-9]+)/) {
$sub = "curl -s -H 'Referer: http://www.addic7ed.com/' http://www.addic7ed.com/original/$1/1 -o ./$orig.srt";
system("$sub");
exit;
}
}
}