DF
Size: a a a
DF
DF
SZ
NK
NK
VG
IB
SZ
my %rc;
my $keys = join "|", qw( REQUIRE PROVIDE );
open my $fh, "<", $file or die $!;
/^#\s*($keys):\s*(?:(\S+)(?{ push @{$rc{$1}}, $2 })\s*)+/g while defined ($_ = <$fh>);
chomp(%rc);
SZ
sub cdrcdr { @_[2..$#_] }
my @provides = cdrcdr(map { split /\s+/ } grep /# PROVIDE: /, @rcbody);
use List::Util "tail";
print for map { tail -2, (split /\s+/) } ("1x 2x 3x 4x 5x", "1y 2y 3y 4y 5y");
VG
use List::Util "tail";
print for map { tail -2, (split /\s+/) } ("1x 2x 3x 4x 5x", "1y 2y 3y 4y 5y");
SZ
VG
VT
VT
IC
NK
NK
NK
NK
SA