#!/usr/bin/env perl

use strict;
use warnings;

my ($srcdir, $srcext, $objdir, $objext, @sources) = @ARGV;

$, = " ";

print map { s/^\Q$srcdir\E/$objdir/; s/\.\Q$srcext\E$/.$objext/; $_ } @sources;
