- or download this
$str =~ s/if substr\(([^\)]*)\) in (\([^\)]*\))/my($f,$s)=($1,$2); $f=
+~s!^!\$!; $s=~s!\D!!g; "if substr($f) =~ m#[$s]#"/eg;
- or download this
$str =~ s/in/=~/;
$str =~ s/(?:\s)(\([^\)]*\))/my $s=$1;$s=~s!\D!!g;" m#[$s]#"/e;
- or download this
if substr(acct_trtmt_hsty,1,1) =~ m#[789]#;