Help for this page
if ( ( $a, $b, $c ) = $current_text =~ s/$some_regex// ) { # do something useful next READ_MORE_DATA }
if ( $current_text =~ s/$some_regex// ) { ... # do something useful next READ_MORE_DATA }