펄 파일 정규식으로 추출 질문이요!

my @list = qw(
83F-10621-F_83F-10621-F.jpg
83F-11149-F_83F-11149-F.jpg
84F-10420-F_84F-10420-F.jpg
84F-10420-F_84F-10420-F.jpg
87F-13064-F-2_87F-13064-F-2.jpg
);
 
foreach my $file ( @list ) {
    if ( $file =~ /
        ^           # 문자열의 시작
        (           # 여기서부터 캡처
            8
            .       # 임의의 문자 하나
            F-
            \d{5}   # 임의의 숫자 다섯 개
            -F
        )           # 여기까지 캡처
        /x          # x 옵션: 정규식에 주석과 공백을 삽입 가능
    ) {
        my $extracted = $1;     # 첫번째 괄호에 캡처된 것은 $1에 담김
        print("[$file] => [$extracted]\n");
    }
 
}