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

open my $outfile, '>', 'filename.txt';
{
    $local $/ = '?srt=';
    while( <> ) {
        chomp;
        if( m#-/(\w+)$# ) {
            print $outfile $1, "\n";
        }
    }
}
close $outfile;