open (PSSWD, "<passwordfile") or die "could not able to open the file" ;
while ($line=<PSSWD>) {
  chomp($line);
  if($line = ~ m/username\s+(\S+)\s+(\S+)\s*\S*/){
    print "username: $1, password: $2\n";
  }
  else{
    print "$line did not match regex\n";
  }
}