Shell Programming and Scripting

awk -v token_search_string="$token_search_string" -v token_search_length=$token_search_length '
BEGIN {
  split(token_search_string, a, "|")
}
{
  for(i=1;i in a; i++)
    if (match($0, a[i]))
      print substr($0, RSTART, token_search_length) 
}' /data/data2/staging/CREDIT_CARDS/TSYS/V888test.20150101.12010

BEGIN {
  split(token_search_string, a, "|")
}
{
{
  s=t=$0
  for(i=1;i in a; i++) {
    t=s
    while (match(t, a[i])) {
      print substr(t, RSTART, token_search_length)
      t=substr(t,RSTART+RLENGTH)
    }
  }
}