gistfile1.txt

#!/usr/bin/env perl

use 5.010;
use utf8;
use strict;
use warnings;

# while <> 구문은 표준입력 또는 명령줄 인자를
# 파일로해서 모든 컨텐츠를 줄단위로 받아들임
while (<>) {
    # 기본적인 필터링: (숫자)bps 가 아닌 줄은 통과 하도록 함
    next unless /\((\d+)\)bps/;

    # 정규 표현식에 의해 첫번째로 저장된 \d+ 값은 $1에 저장되므로 출력함
    say $1;
}