#!/usr/bin/perl -w
use strict;
while(<STDIN>){
	if (/Id=(.*);\s*Password=(.*)/i){
		my ($user,$pass) = ($1,$2);
		$pass =~ s/".*//;
		$pass =~ s/;.*//;
		print "$user $pass\n";
	}
}