if(my @elements=$line=~m!(\d+)\s+(\d+)\s+(\w+)\s+(\d+/\d+)\s+(\d+,\d+)\s+(\d+,\d+\w+)\s+(\d+,\d+)!)
{
  print "@elements\n";
}
elsif(my @elements=$line=~m!(\w+)\s+(\d+,\d+\w+)!)
{
  print "@elements\n";
}
else
{ print "Unbekanntes Zeilenformat\n"; }