Select Code to Download

my $line = 'DATA/-/data123/data456//data789/-/AZ';
my @fields = split '/', $line;

#!/usr/bin/env perl
use 5.010; use strict; use warnings;
...
        say "Line has problems, keyword $keyword";
    }
}