local $" = ';';
system qq( sed '@{[ map "s/\\<$_\\>/$_ ($acronyms{$_})/g", keys %acronyms ]}' );