@main[][str]

$str[^taint[^^call[]]]
^process{$str}

<hr />

^try-catch{
	^process{^taint[as-is][$str]}
}