펄 파일 이름 추출 질문이요!

my @list = qw(
    N1_KI03298Z1.Pmap
    N1_KIR0055.Pmap
    N1KIR0035R1_16_csv.zip
    N1KIR0053_04_csv.zip
    N1KIR0055_01.wmap_a
    N1KIR0053_04.wmap_a
);
 
foreach my $file ( @list ) {
    if (
        $file =~ /
            N1
            _?
            (
                [A-Z0-9]+
            )
            /x
        )
    {
        my $extracted = $1;
        print "[$file] => [$extracted]\n";
    }
}