if ($desc =~ /;FTP*:*/)
	{
	  $txn_type = 4 ;
	  print "Desc before changing: $desc \n";	
....
	}