system('perl', '-I.bak', '-pe', 's[main.php\?page=][/?id=]g', @pathnames) == 0
    or die "Subcommand failed with return code $?.\n";