my $left = quotemeta '<fun>';
my $right = quotemeta '</nuf>';
while( $line =~ /$left(.*?)$right/i ){
    my $between = $1;
}