#!/usr/bin/env perl
# $Id$

open(IN, "<", $ARGV[0]);
while (my $l = <IN>) {
    $l =~ s/\r?\n$//g;
    $l =~ s/%([^ ]+)/@\1/g;
    if (!($l =~ /\@prop /)) {
        print("$l\n");
    }
}
close(IN);