use strict;
use warnings;
use autodie qw/:all/;
open my $outfile, '>', 'filename.txt';
while ( <> ) {
    while( m#-/(\w+)\?srt=#g ) {
        print $outfile $1, "\n";
    }
}
close $outfile;