Nowhere?

From your description it doesn't sound special :) sounds like

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

and IMHO that doesn't need a module

OTOH see See Simple Module Tutorial and Modern Perl and Re^2: Write to existing file with character insert