#!/usr/bin/perl -w
use strict;

sub readfile($)
{
  if(open MYRIN,"<$_[0]")
  {
    my $old=$/;
    undef $/;
    my $content=<MYRIN>;
    close MYRIN;
    $/=$old;
    return $content;
  }
  return undef;
}

foreach my $sp (<*.sp>)
{
  my $content=readfile($sp);
  $content=~s/\bvdd\b/VPWR/g;
  $content=~s/\bgnd\b/VGND/g;
  open OUT,">$sp";
  print OUT $content;
  close OUT;
}