Select Code to Download

#!/usr/bin/perl -w
use strict;

my $s = "abacada";               # 'bcd' delimited by 'a'
print $s =~ /[^a]/g;             # prints 'bcd'
$s =~ /([^a])(?{ print $^N })/;  # prints 'b'