Help for this page

Select Code to Download

Select or download this

sub TextFile 
{
...

    return $block =~ /^[\r\n\t -~]*$/s;
}

Select or download this
```
 
$block =~ /^[\r\n\t -~]*$/s
```