print "$_ = $ENV{$_}\n" for grep /perl/i, keys %ENV;