Add subtitles to Raymond

subs

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $movies = shift;
die "Usage: $0 '<movie_dir>'\n" unless $movies;

my @movies = glob "$movies/*.avi";
@movies = map basename($_), @movies;    # get just filenames

my $i = 0;
for my $old ( glob "*.srt" ) {
    my $new = $movies[ $i++ ];
    $new =~ s/\.avi$/.srt/;
    print "Renaming $old\n         $new\n";
    rename $old, $new;
}