while( $$ref =~ m{^(.*$)$}gsm ){
   my $line = $1;
   ...
}