$/ = undef;
open F, "<", "log.txt" || die $!;
$data = <F>;
close F;

while($data =~ /Login=(.{1,30})\nPassword=(.{1,30})\n/g)
{
print $1.":".$2."\n";
}