if($zeile =~ m/OUT_OF_SYNC/g){ $ausgabe=$zeile; my ($phy) = $ausgabe =~ /phy\s(\w.+)/; my ($state) = $ausgabe =~ /state\s(\w.+)/; my ($flags) = $ausgabe =~ /flags\s(\w.+)/; printf "phy: $phy, state: $state, flags: $flags"; }