use strict;
use warnings;
use autodie qw/:all/;

open my $outfile, '>', 'filename.txt';

while (<>) {
    if ( m#-/(\w+)\?srt=# ) {
        print $outfile $1, "\n";
    }
}
close $outfile;