while(<DATA>) {
    if( m/ ^ (-?\d+?); (\d{2}-\d{2}-\d{4});         # matcht: '-123; 12-05-2005;'
        (-?\d+?); (\d{2}-\d{2}-\d{4} | yesterday);  # matcht: '-123; 12-05-2005;'
               
               
               
       #    oder 'yesterday;'
        (.+)      &n
bsp;              &n
bsp;              &n
bsp; $ /x ) {