- my $text = '';
- $text .= $_ foreach( readline S );
-
- while(
- $text =~ s/
- ^ .*?
- (?:
- (?: translate f? | i18n )
- [\s\n]* ( \( )
- |
- ( \<%: -? )
- )
- /$1 || $2/segx
- ) {
- my $code;
-
- ( $code, $text ) = extract_codeblock( $text, '', '^', '()' );
- if( ! $code ) {
- ( $code, $text ) = extract_codeblock( $text, '', '^', '<>' );
- }