ede/ede-panel/applets/start-menu/tests/expand

#!/usr/bin/perl

# This script performs expansion of environment variables of the form ${HOME}

while(<>)
{
  while (($a) = ($_ =~ /[^\$]*\$\{([^\}]*)\}.*/))
  {
     s/([^\$]*)(\$\{$a\})(.*)/$1$ENV{$a}$3/;
  }
  printf $_;
}