dooberwah@kyle:~$ perl -e 'print "foobar" =~ /(?<=foo)bar/, "\n";'
1
dooberwah@kyle:~$ perl -e 'print "foobar" =~ /(?=foo)bar/, "\n";'

dooberwah@kyle:~$