нужно сделать на перле прмерон вот такое на авк-е...
awk '/:.:/(FS="-->"){print $1"\n"$2}'
вот чего достиг, но не работает
#!/usr/bin/perl
#use warnings;
use strict;
my @arr;
while(@arr= split(/\-->/,<stdin>)){
# if(/:.:/) {
print "$_";
#print @arr[1];
#print @arr[2];
#}
}
собственно нужно на перле ибо альтернатива с использованием авк-а что-бы можно было математические действия не тормозно выполнять.