foreach $line (@exceptions) {
    if ( $line =~ m/^n/ ) {
        $line =~ s/^n//s;
        push( @before, $line );
    } elsif ( $line =~ m/^i/ ) {
        $line =~ s/^i//s;
        push( @implementation, $line );
    } elsif ( $line =~ m/^b/ ) {
        $line =~ s/^b//s;
        push( @backup, $line );
    } elsif ( $line =~ m/^o/ ) {
        $line =~ s/^o//s;
        push( @offline, $line );
    }
}