#!/usr/bin/perl
while (<>) {
    s@[/]?(usr|%{[_]?prefix})/bin@%{_bindir}@g;
    s@[/]?(usr|%{[_]?prefix})/man@%{_mandir}@g;
    s@[/]?(usr|%{[_]?prefix})/sbin@%{_sbindir}@g;
	s@[/]?(usr|%{[_]?prefix})/etc@%{_sysconfdir}@g;
    s@[/]?(usr|%{[_]?prefix})/lib@%{_libdir}@g;
    s@[/]?(usr|%{[_]?prefix})/share@%{_datadir}@g;
    s@[/]?(usr|%{[_]?prefix})/include@%{_includedir}@g;
    s@[/]?(usr|%{[_]?prefix})/info@%{_infodir}@g;
    s@/usr@%{prefix}@;
   print;
}