BDFD - FindAlphaNum

$var[findAlphaNumSym;INPUT A STRING TO SEARCH]
$var[q;$cropText[$var[findAlphaNumSym];2500;]]
$var[w;$cropText[$replaceText[$var[alphaNumSym];$var[q];];2500;]]
$var[a;]$var[b;]
$textSplit[$var[q];]
$eval[%{DOL}%var[a\;%{DOL}%url[decode\;$joinSplitText[\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\; \;1\;2\;3\;4\;5\;6\;7\;8\;9\;0\;-\;_\;.\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif %{DOL}%var[a\;%{DOL}%url[decode\;]\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\; \;1\;2\;3\;4\;5\;6\;7\;8\;9\;0\;-\;_\;.\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif]$var[q;$var[b]]$var[a;]$var[b;]$textSplit[$var[w];]$eval[%{DOL}%var[a\;%{DOL}%url[decode\;$joinSplitText[\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\; \;1\;2\;3\;4\;5\;6\;7\;8\;9\;0\;-\;_\;.\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif %{DOL}%var[a\;%{DOL}%url[decode\;]\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\; \;1\;2\;3\;4\;5\;6\;7\;8\;9\;0\;-\;_\;.\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif]
$var[findAlphaNumSym;$var[q]$var[b]]
$var[findAlphaNumSym] $c[<=== Result]