When the Regular Expressions book was published, the latest version of Perl was 5.005_03. As of 5.6.0, Perl does support lookbehind.

However, you really don't need lookbehind or split to solve this problem: @matches = $string =~ /~?./g;