#!/usr/bin/perl -n

/@@`([^`]+)`@@/;
if ($1)
{
	$output = `$1`;
	$output = join(' ', split(/\n/, $output));
	s/@@`([^`]+)`@@/$output/;
}

print;
