my $tech;
$tech =~ s/a/b/;