#!/usr/bin/perl $var="foo foofoo"; @matches = ( $var =~ /(?<!foo)foo/g ); print "@matches";
Standard input is empty
foo foo
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!