perl -ne '/(\S{3,80}->\S{5,80})/;print $1,"\n"'