Select Code to Download

use Regexp::SlashN;

"A
...
$1 eq "A
B
C" or die;

package Regexp::SlashN;
use overload;
sub import { overload::constant qr => \ &convert }
...
    $re =~ s/\\([\\N])/$syntax{$1}/g;
    return $re;
}