use strict;
use warnings;

while ( $_ = do { local $/ = qq(""\n); <> }) {
    if (/(\w+\.\w+).*Default_Name:\s\@ST\/(\w+)\/(\w+)$/ms) {
        print "[$1]\n", "db_part_no=$2\n", "db_part_rev=$3\n\n";
    }
}