поиск текста по маске

есть txt файл с таким содержанием:

нужно из этого выдрать только мыло-пароль от http://site1.ru и сложить все в такой вид:

чем можно это всё организовать?

 

Ос не указана,так что решу на PowerShell:

Вывод:
[email protected];parol
lol2;parol
lol3;parol
lol;parol

Если требуется что в username было @ и site1.ru,то можно так:

Вывод:
[email protected];parol

 

От нечего делать:

Code:

#!/usr/bin/perl
open(FILE, "<333.txt");
my $usr, my $pwd;
while(my $file = <FILE>)
{
    if($file =~ /.*pass.*=(.+)/i) { $pwd = $1; }
    elsif($file =~ /(login.*=|user.*=)(.+)/i) { $usr = $+; }
    elsif($file =~ /\*/) { print $usr, ";", $pwd, "\n"; }
}
close FILE;

 

спасибо всем. подсказали способ как все сделать в екселе:

 

Реабилитация утреннего тупняка:

Code:

#!/usr/bin/perl
open(FILE, "<333.txt");
while(my $file = <FILE>)
{
    $file =~ /.+d=(.+)\n*|.+=(.+)/; if($2) { print $2; } if($1) { print ';', $1, "\n"; }
}
close FILE;

Если без домена, по примеру