if ( $zeile =~ /OUT_OF_SYNC/ ) { my ($phy) = $zeile =~ / \b phy \s+ (\w+) /x; my ($state) = $zeile =~ / \b state \s+ (\w+) /x; my ($flags) = $zeile =~ / \b flags \s+ (\w+) /x; printf "phy: $phy, state: $state, flags: $flags\n"; }