Здравствуйте. Подскажите пожалуйста, как можно составить рег. выражение, которое проверяет в разных строках. 
Есть файл с содержимым вида:



И вывести  data01:data02, data03:data04.
Я застрял на этом, просто не пойму как можно проверить следующую строку. 

 
С уважением.

while ($data =~ /in: (\w+).*?out: (\w+)/sg){
    print "$1:$2\n";
}

Спасибо большое! Но как можно загрузить весь файл в переменную? Ведь $data=<SOMEFILE> присваивает только первую строку. Можно ли тогда сначала в массив, потом массив в переменную.
И как можно в цикле  можно перейти к следующей строке

use File::Slurp, Luke

PS: это если файл маленький (по сравнению с RAM). Если большой - то надо читать построчно, ну и запоминать состояние.