#EXTM3U
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=80000
80.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=400000
400.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=700000
700.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=1500000
1500.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=2500000
2500.m3u8

##</code><code>##

#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=700000
700.m3u8
##</code><code>##

$text = <<'LIST';
#EXTM3U
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=80000
80.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=400000
400.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=700000
700.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=1500000
1500.m3u8
#EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=2500000
2500.m3u8
LIST

$text =~ m{ (\#EXT-X-STREAM-INF:PROGRAM-ID=
                \d+,
                BANDWIDTH=\d+ \s*
                \d+\.m3u8)
         }xms;

print "1 - $1, 2 - $2, 3 - $3\n";

##</code><code>##

# ./test.pl
1 - #EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=80000
80.m3u8, 2 - , 3 -