#!/usr/bin/perl -p

use strict;
use warnings;
use vars qw(%var);

while ( /([A-Z][0-9]*)=(\S+)|T\d{3}(\d\d)\d/g ) {
    my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos );

    if ( defined $t_expr ) {
        $var{'R10'} = $t_expr;
        next;
    }

    if ( substr($_,0,1) eq '(' ) {
    next;
    }

    my $len = length $val;
    
    (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge;
    
    if ( $tmp_val =~ /^[\d\*\/\+\-\(\).]+$/ ) {
        $tmp_val = eval $tmp_val;
        $var{$id} = $val = $tmp_val unless $@;
    }
    
    substr $_, $pos - $len, $len, $val;
    pos = $pos - $len + length $val;
}