/^([\w\-\.]+)?\@([\w\-\.]+)\t([\w\-\.]+)$/
#or do { warn "Strange virtusertable line: $_"; next; };
or die "Strange virtusertable line: $_";
/^([\w\-\.]+)?\@([\w\-\.]+)\t([\w\-\.]+)$/
#or do { warn "Strange virtusertable line: $_"; next; };
or die "Strange virtusertable line: $_";