while ( $content =~ s/(.*/$1/gsi ) { }