#!/usr/bin/perl

while(<STDIN>) {
   chomp;
   split / /;
   for (@_) {
      $GZSUFF = "";
      if (/.gz$/)
       { s/.gz$//; $GZSUFF = " gz" if ($ARGV[0] == "-gz"); }
      s/\./helm:rdf:www.cs.unibo.it\/helm\/rdf\/rdfprova\/\/cic:/;
      s/\.xml//;
      print $_.$GZSUFF."\n";
 }
}
