s/$regex/@a=($1, $2, $3).../e;