our $file = '/etc/profiles/bashrc.ora.v.10';
open my $fh, "< $file" or die "open: $!";

while (defined($_ = <$fh>))
{
    next unless /^export\s+([A-Za-z]\w+)=(.*)$/;
    $ENV{$1} = $2;
}

close($fh);