#!usr/bin/perl

foreach $ituation (@lways){
/(.+?)ratio(?=[^\n])(.*)(?#Ratio in medio stat)/}

#( & !/^ratio(.*) | (.*)ratio$/) 
#(giulia1\0 - giulia@olografix.org)