Help for this page

Select Code to Download

Select or download this

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

Select or download this

if ( $current_text =~ s/$some_regex// )
{
...
    # do something useful
    next READ_MORE_DATA
}