perl -ne 'next if(!/tom/ && !/steve/) ; printf("%10s %5s",(split/;/)[0,1]);' list.txt
       tom    54
      steve   56