#!/usr/bin/perluse warnings;use feature 'say'; $s = "ABC";if ($s =~ /(A B(*ACCEPT)??)(E)/x) { say "$&";}
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!