perl -e 'print pack "(w/a)*", @ARGV' vafvga vafdgb wtrbw rhb yhjeyt heythehyetyhe ythetyh etyh |
perl -le 'undef $/; print join "\t", unpack "(w/a)*", scalar <>'