/
upgradedb.3.0a8-to-3.0a9.02/
upgradedb.3.0a8-to-3.0a9.02/files/
upgradedb.3.0a8-to-3.0a9.02/scripts/
#!/usr/local/bin/perl

while (<STDIN>) {
    s/\$text_format([^a-z_0-9])/\$plain_format$1/;
    print;
}