#!/usr/bin/perl -pi
next unless m{^#\@ };
my $ok = 1;
s{@(\w+)@}{ $ENV{$1} // ($ok=0, $&) }ge;
s{^#\@ }{} if $ok;