#! /usr/bin/perl -l
use strict;
use warnings;

while ( <DATA> ) {

    # die ersten 1-5 X<foo> ab Zeilenanfang einfangen
    if ( $_ =~  m/^X(<\S+>(?: X<\S+>){0,4})/ ) {

        # splitten am " X" und die Klammern entfernen
        my @matches = map { s/^<|>$//g; $_ } split m/\s+X/, $1;

        # Kontrolle
        print join "--", @matches;
    }
    else {
        print STDERR "no matches.";
    }
}

__DATA__
X<$!> X<$ERRNO> X<$OS_ERROR>