use strict;
use ScopeSaver;
my $scopeobj;
my $line = "A TC B";
if ($line =~ /TC/g) {
  my $lookfor = "TC";
  $scopeobj = eval ScopeSaver->new(lexical=>['$lookfor']);
}
else {
  my $lookfor = "26 ";
  $scopeobj = eval ScopeSaver->new(lexical=>['$lookfor']);
}
$scopeobj->scope_eval('print $lookfor');